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Variable  width  fonts  were  adapted  for  use  in  a  16-bit 
environment?  and  an  existing  font  editor  was  modified  to 
provide  for  the  creation  and  maintenance  of  such  fonts.  A 
UNIX  compatible  file  format  was  designed  for  the  storage  of 
digitized  characters/  and  a  set  of  font-manipulation  pro- 
grams were  written.  These  develoDments  enhance  the  digital 
typesetting  c  a  d  a  b  i  1  i  t  y  of  UNIX.  Thirty-four  fonts  were  ob- 
tained from  the  Stanford  Artificial  Intelligence  Laboratory 
(SAIL)  and  were  modified  for  use  unaer  UNIX.  The  fonts 
offer  a  variety  of  sizes  and  styles;  their  selective  use  al- 
lows for  a  more  compact  and  aesthetic  oisplay  of  textual  in- 
formation in  documents  produced  on  a  Versatec  1200-A 
printer /olotter. 
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I.   INTRODUCTION 


A.   BACKGROUND 


1.   Technological  Progress 


The  invention  of  moveable  tyce  had  a  tremendous  im- 
pact on  man's  environment.  The  invention  of  printing?  more 
than  any  single  achievement/  "marks  the  line  of  division 
between  medieval  and  modern  technology"  [Ref.  153.  Techno- 
logical improvements  to  Gutenberg's  invention  continued  at  a 
snail's  Dace  through  the  latter  half  of  the  nineteenth  cen- 
tury until  the  public  demand  for  daily  news  reguired  more 
rapid  modernization  in  the  orinting  industries.  Constant 
improvements/  one  of  which  was  the  use  of  electrical  power 
to  drive  presses/  continued  through  the  mid  twentieth  centu- 
ry until/  finally/  one  could  find  printing  rooms  filled  with 
linecasters/  complex  electro-mechanical  contraptions  produc- 
ing hot  metal  type/  and  cresses  noisily  soewing  forth  tons 
of  paper  each  day.  However,  the  public's  appetite  was  seem- 
ingly insatiable/  and/  while  Dress  soeed  was  satisfactory/ 
the  entire  process  was  slowed  by  the  composition  functions 
of  line  justification/  hyphenation/  spelling/  and  so  on. 
These  functions  still  reauired  human  preprocessing  or 
operator  interruption  of  linecasters.  The  solution  to  this 
bottleneck  was  provided  by  the  computer  and  recent  advances 
in  text  orocessina. 


2.   Computer  Assisted  Typesetting 

The  computer*  gradually  extending  its  influence  into 
many  unrelated  fields*  had  now  entered  the  printing  indus- 
try. Its  employment  was  in  assisting  the  typesetters*  not 
replacing  them.  Computer  assisted  typesetting  fCATS)  was 
characterized  by  the  computer  Performing  all  line  justifica- 
tion* page  breaking*  hyphenation*  etc.;  essentially  the  in- 
formation to  be  printed  was  beina  oreprocessed  by  a  program. 
The  result  of  this  crocess  was  a  tape*  either  a  perforated 
paper  tane  or  a  magnetic  taoe*  which  contained  the  processed 
text  intersoersed  with  commands  to  the  printing  device* 
spec i f i nq  when  to  hyphenate*  when  to  change  typeface*  when 
to  indent*  etc.  In  addition  to  processing  text*  the 
computer's  software  had  to  be  tailored  to  the  specific 
printing  apparatus.  The  tape  was  designed  to  assist  the 
electro-mechanical  linecasters  in  the  setting  of  hot  metal 
type*  and  presses  continued  to  produce  the  print. 

Soon  many  newsoaoers  and  publishers  were  using  com- 
puters to  oroauce  tapes  of  processed  text*  which  drove  the 
more  conventional  linecastina  machines.  Although  the  future 
of  computers  in  the  printing  industries  looked  bright*  there 
were  repercussions  ana  even  some  failures.  Labor  revolted 
at  the  smell  of  further  automation*  and  this  problem  was 
necessarily  handleo  delicately.  The  WASHINGTON  EVENING  STAR 
was  the  first  major  newspaper  to  successfully  assist  its 
press  operation  with  a  computer  [Ref.  6  ]  .  One  such  attempt 
failed.    In  \9b2,     the  ARIZONA  JOURNAL  was  founded*  and  its 
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publisher  decided  to  begin  with  a  computer,  a  GE  <?  2  5 ,  to 
perform  text  Drocessing  functions  and  administrative  tasks, 
GE  '  s  computer  oersonnel  wording  on  the  project  knew  nothing 
of  publishing  newspapers,  and  the  pacer's  staff  knew  nothing 
of  comDuters.  The  software  did  not  materialize  in  time  to 
begin  printing,  and  creditors  foreclosed  [Ref.  16]. 

3.   Computer  Tyoesetting 

In  the  early  1960'Sf  there  was  a  flurry  of  develop- 
ment in  nonimpact  printing.  Previously,  all  printing  was 
by  impact,  the  striking  of  a  raised  shape  of  a  character 
onto  paper  with  some  inking  mechanism  involved.  Using  new 
advances  in  xerography,  photography,  ana  high  speed  control 
mechanisms,  nonimpact  printing  devices  were  characterized  by 
higher  printing  speeds,  less  noise,  fewer  moving  parts, 
higher  reliability,  and  a  greater  capacity  to  handle  both 
textual  and  graphical  information  [Ref.  4]  . 


In  1961  ,j1  i  c  h  e  a  1  P.  Barnett,  at  ^  I  T  ,  designed  a  pro- 
gram which  processea  text  and  produced  tape  which  arove  a 
Photon  5b0,  a  phot o t ypeset t e r .  This  particular  photo- 
typesetter  contained  a  disc  with  photographic  images  of 
characters  from  various  tyoefaces.  The  typefaces  were  ar- 
ranged in  concentric  circles  about  the  center  of  the  disc. 
As  the  tape  was  processed,  a  light  source  moved  back  and 
forth  from  the  center  of  the  disc  to  its  edge  while  the  disc 
rotated  at  high  speed.  An  intricate  timing  mechanism  within 
the   Photon  560  ensured  that  pictures  of  the  correct  charac- 


ters  in  the  correct  typeface  were  exposed  to  the  film  behind 
the  disc.  From  the  film,  either  lithographic  plates  could 
be  made  or  documents  oroduced  directly  through  special 
machines  (Ref.  11.  0 i s t i nqu i sh i ng  between  computer  typeset- 
ting and  computer  assisted  typesetting  (CATS)  is  difficult. 
Considering  the  tremendous  potential  of  nonimpact  printers 
and  the  recent  (last  10  years)  advances  in  computer  output 
microfilm  ( C 0 M ) /  computer  typesetting  i  s  /  in  this  author's 
opinion/  the  future  oirection  in  the  printing  industry. 
Comouter  typesetting  tends  to  be  more  software  oriented. 
Consequently;  there  tends  to  be  less  of  a  separation  between 
the  text  processing  and  the  actual  character  generation; 
continuity  is  more  acparent  in  computer  typesetting.  In 
comouter  typesetting/  the  computer  sets  "software"  type; 
whereas*  in  CATS/  the  computer  creates  some  tape  which 
drives  devices  which  set  "hardware"  type.  The  state-of- 
the-art  character  generation  techniques  for  computer 
typesetters  are  ohoto/ootic/  ohoto/scan/  and  digital/scan 
[Refs.  ?.  ano  141.  Briefly/  the  three  techniques  are 
desc  r  i  bed : 

a .   Phot  o/opt i  c 

^eref  photographic  imaqes  of  characters  are 
stored/  and  high  soeed  access  to  these  images  allows  them  to 
be  projected  through  a  lens  onto  film  or  paper.  Scaling  is 
possible  through  lens  switching/  and  access  times  are 
several  milliseconds  per  character.  The  presence  of  moving 
parts  limits  speed   and  reliability. 
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b.  Photo/scan 

Again/  DhotoaraDhic  images  of  characters  are 
stored.  The  selected  character  image  is  "scanned";  that  is, 
horizontal  slices  of  its  i  m  a  q  e  are  projected  sequentially 
from  too  to  bottom  completing  the  full  character  picture. 
Scalinq  is  possible  by  expanding  and/or  adding  duplicate 
scan  lines.  Again,  the  presence  of  moving  parts  limits  re- 
liability. 

c.  Digital/scan 

All  character  images  are  stored  in  memory  as 
pictures  composed  of  "  I  '  s  "  and  "O's"  (bits  either  "on"  or 
"off").  The  character  imaaes  are  plotted  by  a  program  pass- 
ing the  digital  picture,  in  bits,  to  static  printing  heads 
(one  head  Per  bit)  or  by  recording  the  digital  picture,  bit 
by  bit,  with  an  electron  or  laser  gun.  Although  scaling  is 
not  Dossible,  this  technique  provides  the  fastest  character 
access  and  interfaces  with  print  ing  devices  with  few  movinq 
parts.  These  last  twc  characteristics  are  important  advan- 
tages. One  disadvantage,  however,  is  that  digital  represen- 
tations show  a  "staircase"  effect  in  large  characters. 

Producing  different  typefaces  can  be  accom- 
plished for  each  technique.  The  photo/ootic  and  photo/scan 
methods  require  that  a  master  disc  of  character  images  be 
made.  Digital/scan  aevices  acquire  different  typefaces  from 
either  of  two  ways.  First,  there  are  devices  that  can 
"read"   a   photographic  character  image  and  pass  a  digitized 
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interpretation  to  memory  for  storage.  Secondly,  there  exist 
interactive  programs  (editors)  which  enable  a  user  to 
create  digitized  character  pictures  [Ref.  21.  There  was  no 
attempt  to  analytically  compare  the  three  techniques  or  to 
prooose  benchmarking  methods  as  this  thesis  effort  was  res- 
tricted to  a  system  which  is  hardware  deoendent  on  the 
digital/scan  technique. 

Althouah  there  is  much  ongoing  research  in  the 
area  of  computer  tyoesett  ina>  its  application  is  well  esta- 
blished in  the  printing  industry.  For  example/  as  early  as 
1970,  a  book  was  puolished  entirely  by  computer  typesetting 
[Ref.  3] . 

B.   COMPUTER  TYPESETTING  UNDER  UNIX 

1  .   System  Des  i  gn 

This  section  oescribes  t  h  e  system  as  it  existed  be- 
fore this  author  oegan  his  research  effort*  and,  although 
many  improvements  were  maoe»  not  all  system  components  have 
been  modifiea?  however,  the  system  may  still  be  utilized  in 
its  original  configuration  if  desired.  The  basic  components 
of  the  system  are  described  below: 

a .   T  ro  f  f 


Troff  is  a  text  processor  similar  to  N  r  o  f  f  r  and 
both  were  designed  at  the  Bell  Laboratories  by  the  same  au- 
thor [Refs.  8  and  R] .   Troff,   however,   accepts   additional 


commands  to  change  typefaces  (hereafter  referred  to*  and 
later  defined,  as  "fonts").  Normally/  the  output  from  Troff 
goes  directly  to  a  pho t o t ypese t t er .  There  being  no  such 
device  at  N  P  S ,  Troff  has  been  modified,  and  its  output  be- 
comes an  intermediate  file  which  is  processed  by  V t s . 

b.  Vts 

Vts  is  a  virtual  typesetter,  a  program  which 
takes  the  preprocessed  text  lines  from  the  file  from  Troff 
and  which  then  sets  the  required  digitized  character  defini- 
tions into  plot  Duffers.  The  plot  buffers  are  sent  to  a 
Versatec  printer/plotter. 

c.  Edf 

Edf  is  a  font  editor,  an  interactive  program 
that  enables  the  user  to  create  ana  maintain  digitized 
fonts.  In  its  original  form  it  processed  only  fixed  width 
fonts  of  a  specific  size. 

d .  Font  Library 

The  original   font   library   consisted  of   four 

fonts.  Three  containeo  the  standard  ASCII  character  set,  and 

the  fourth  contained  special  characters  for  setting 
mathematical  formulas. 

e .  Display 

There  is  a  disolay  program  which  will  plot,  on 
the  Versatec,  all  characters  in  a  font. 


IS 


The  system  comoonents  described  above  were 
designed  and  programmed  by  Professor  G.L.  Barksoale.  They 
are  intended  to  maniculate  fixed  width  fonts*  the  charac- 
ters of  which  are  all  16  oixels  wide  and  20  pixels  high.  A 
"pixel"  is  a  unit  of  resolution  (a  oicture  element)  on  a 
plotter.  On  the  Versatec»  there  are  approximately  200  pix- 
els per  inch.  In  sett ina  digitized  characters*  a  plot 
buffer  represents  one  horizontal  line  (raster  line)  of  pix- 
els* i.e.*  20  plot  ouffers  would  need  to  be  sent  to  the  Ver- 
satec  to  plot  ("print")  a  line  of  text.  Figure  1  illus- 
trates the  interolay  among  the  various  system  tools. 
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2 .   Enhancement  Objectives 

The  original  objective  of  the  thesis  research  was  to 
increase  the  font  library  to  include  variable  width  fonts  of 
various  sizes.  These  fonts/  34  in  all,  were  obtained  in 
machine  form  from  the  Stanford  Artificial  Intelligence  La- 
boratory (SAIL).  Additional  objectives  were  to  modify  the 
system  components  to  handle  the  variable  width  fonts/  and  to 
add  to  V t s  a  limited  plot  (simultaneous  text/graphics)  capa- 
bility. In  conjunction  with  this  author's  thesis/  LT.  P.M. 
Dovle  adaoted  the  Hershey  Character  Sets  for  use  in  graphics 
and  typesetting.  LT.  Doyle  develooed  a  program  which  con- 
verted the  vector  formatted  Hershey  font  files  to  digitized 
font  files;  a  scaling  option  was  made  available  in  the 
conversion  proaram.  The  modifications  to  the  system  tools 
were  the  results  of  both  theses  IRef.  5] •  The  following  se- 
quence was  desianed  to  attain  the  thesis  objectives: 

a.  Desian  a  UNIX  compatible  file  format  for  digi- 
tized font  storage. 

b.  Convert  fonts  from  SAIL  to  NPS  file  format/ 
correcting  any  detected  errors. 

c.  Modify  Edf  to  handle  variable  width  fonts. 

d.  Modifv  the  system  font  display  orogram  to  display 
variaole  width  fonts. 

e  .  Mod  i  f  y  T ro  f  f  . 
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f .  Modi  f y  Vts. 

g.  Document  the  new  system  (write  a  user's  manual). 

h.  Document  the  proqram  develooment  and   the   thesis 
research  (write  the  thesis). 

The  objectives  enumerated  in  a.  through  d.  were 
completed;  however/  their  completion  required  more  time  then 
was  ant  icioated  (primarily  due  to  the  debuggina  and  testing 
phases  of  program  develooment).  Therefore*  objectives  e.  and 
f.  were  omitted.  In  their  places?  a  program  called  Signmkr 
was  written.  Signmkr  sets  type  in  the  same  manner  that  Vts 
would  have?  had  it  been  modified.  Additionally?  its  design 
included  the  capability  of  some  simple  text  processing  func- 
tions. Objectives  g.  and  h.  were  completed.  The  user's 
manual  was  published  seDarately  as  an  Technical  Note  [Ref. 
7)  and  received  distribution  as  such.  Ihe  remainder  of  this 
thesis  documents  the  objectives  meet  and  is  concerned  ori- 
marily  with  Drogram  design  and  development.  The  final 
chapter  presents  conclusions  concerning  the  resulting  system 
configuration  for  computer  typesetting  under  UNI*  and  some 
ideas  for  future  developments  in  this  field. 
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II.   SAIL  FONTS 


A.   DESCRIPTION 

1  .   Origin 

A  font  is  a  collection  of  character  images/  all  of 
which  are  of  the  same  style  and  height/  which  are  mapped 
into  some  character  set.  Fonts  are  in  aeneral  freely  ex- 
changed among  academic  institutions/  orimari 1 y  through  ARPA. 
The  SAIL  fonts*  namea  for  the  agency  from  which  acauired/ 
were  obtained  in  digitized/  machine-readable  forrr  on  magnet- 
ic tape  (Kef.  12] •  There  were  34  fonts  in  all/  and  they  are 
catagorized  as  follows: 

a.  Bodoni  and  N  o  n  i  e  fonts.  These  two  groups  of  fonts 
each  have  distinct  aesigns  ana  each  contain  variable  width 
fonts  of  different  sizes  ana  styles.  Toaether,  they  account 
for  23  of  the  3a  font  s . 

b.  GRFX  (Graphics).  There  are  two  fixed  width 
fonts  which  provide  a  limited  araphics  capability.  They  are 
useful  for  setting  flowcharts/  tree  structures/  and  simple 
graphs.  They  are  also  the  only  two  fonts  in  which  "kerning" 
occurs. 

c.  Math.  There  are  five  fonts  that  contain  special 
mathematical  symbols  for  setting  formulas. 
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d.  SAIL10.  This  font  is  the  only  text  oriented 
fixed  width  font  in  the  library. 

e.  SIGNS.  There  are  three  fonts  which  are  large  and 
excellent  for  entitling  documents  and  making  signs:  SHD15, 
SIGN22,  SIGNAL 

The  terms  usee  to  describe  fonts*  e.g.*  variable 
width,  kerning,  etc./  and  the  meanings  of  font  and  character 
dimensions  are  discussed  in  the  next  section.  Some  of  the 
acaui  red  fonts  were  originally  designed  at  N'lT,  others  at 
CMU  (Cameoie-Mellon),  and  the  remainder  at  Stanford.  Stan- 
ford generally  names*  or  has  renamed*  all  fonts  so  that  the 
trailing  character  or  numbers  connote  size  in  pixels.  The 
scheme  for  naming  fonts  at  NPS  is  similar  but  denotes  size 
in  points*  the  traditional  printer's  measure.  The  34  fonts 
added  to  the  library  are    listed  in  Taole  1. 


21 


SAIL  FONTS 
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2.   Font  /  Character  Dimensions 

In  order  to  manipulate  fonts  and  the  characters 
within  them/  there  are  attributes  of  fonts  and  their  char- 
acters which  provide  information  to  typesetting  programs. 
These  attributes  are  the  dimensions  and  accessing  informa- 
tion. 

a.   Font  Dimensions 

A  font  is  characterized  by  its  height  and  its 
logical  h  e  i  q  h  t  ,  the  two  most  significant  dimensions.  A 
third  dimension^  the  width  of  the  widest  character  in  the 
font/  is  of  less  importance.  The  character  picture  of  each 
character  in  the  font  is  conceptually  set  in  a  rectangular 
frame  which  is  as  high  as  the  font's  height  and  as  wide  as 
the  character's  raster  width.  The  logical  height  is  the 
distance  from  the  top  of  this  conceptual  frame  to  the  base- 
line/ the  imaginary  line  on  which  the  characters  sit.  For 
example/  "ascenders"/  such  as  an  " h M /  "1"/  or  "t"/  sit  on 
the  baseline?  whereas*  "descenders1**  such  as  a  "p"  or  "a"/ 
mav  extend  below  it.  Two  fonts  are  incompatible  if  either 
their  heiahts  or  their  logical  heights  differ. 

Font  and  character  dimensions  are  measured  in 
pixels  which/  once  again*  are  units  of  resolution.  On  the 
Versatec  pr i n t er /p 1 ot t e r /  there  are  200  pixels  per  inch. 
There  is  another  descriptor  of  font  height*  the  "point".  At 
200  pixels  per  inch,  one  point  is  approximately  2.8  pixels 
cr   about   1/72   inch.   Fonts  are    generally  referred  to  as  a 
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"10  point  font"/  an  "8  ooint  font"/  and  so  on.  Point  size 
is  a  general  size  descriptor/  pixel  height  being  more  exact. 
For  instance/  B D R 1 0  is  a  10  ooint  font  which  is  2  b  pixels 
high.   N 0 N S /  another  10  point  font/  is  only  25  pixels  high. 

Fonts  are  either  fixed  or  variable  width.  Being 
a  fixed  width  font  implies  that  all  characters  within  the 
font  have  the  same  width.  Being  variable  width  implies  oth- 
erwise. Variances  in  character  widths  are  a  significant 
thorn  in  the  text  processing/ccmouter  typesetting  interface. 
The  text  processor  reauires  character  widths  to  perform  line 
justification.  Table  2  is  an  analysis  of  the  character 
widths  for  " W ' s "  from  various  families  of  both  fixed  and 
variable  width  fonts.  An  inspection  of  the  table  shows  the 
lac*  of  any  consistent  relationship  between  font  height  and 
character  width  for  fonts  in  general.  As  a  rule  then/  Troff 
cannot  compute  a  character  width  from  the  font  height.  How- 
ever/ by  examining  the  error  percent  based  on  a  10  point 
reference  within  specific  families  of  fonts/  there  appear  to 
exist  useable  relat  ionshios  within  each  family.  By  incor- 
porating tables  within  Troff  for  each  of  the  various  fami- 
lies/ character  widths  could  be  computed.  The  soecifica- 
tions  of  such  a  scheme  were  not  fully  investigated/  but  the 
method  aooears  to  be  a  desirable  alternative  to  the  access- 
ing of  font  files  by  Troff  for  the  character  widths  needed 
for  line  justification.  Finally/  fonts  may  be  of  different 
styes.  NONS  is  an  "upriaht"  font?  N 0 N S I ,  an  italicized  ver- 
sion; and  N 0 N S 8 /  a  bold  (heavier)  version. 
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Font  He i gh t -Charac t e r  width  Analysis 
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Table  2 


b.   Character  Dimensions 

Figure  2  illustrates  font  and  character  dimen- 
sions. The  raster  width  is  the  wiath  of  the  character  pic- 
ture and  is  usea  in  accessing  the  stored  character  picture. 
The  character  width  is  the  space  (in  pixels)  the  text  pro- 
cessor will  allocate  a  particular  character  on  a  liner  and 
it  may  differ  from  the  raster  width.  Character  width  and 
raster  width  differ  only  when  kerninq  occurs.  Kerning  is  a 
technique  whereby  characters  may  be  set  more  closely  to 
minimize  white  space.  Tn  a  font  that  allows  kerninq*  the 
left  and  right  kerns  define  how  close  adjacent  characters 
may  be  set . 
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FONT/CHARACTER  DIMENSIONS 
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In  setting  characters  with  kerning,  the  bit  pictures  within 
the  kerns  of  adjacent  characters  must  be  "anded".  If  the 
result  of  the  "and"  is  clear  (all  zeros)/  then  no  character 
picture  overlao  will  occur/  and  the  kerning  is  permitted. 
Otherwise/  to  prevent  the  overlap/  kerning  is  aborted/  and 
the  character  spacino.  must  be  determined  by  raster  width. 
Decisions  on  kernina  are  made  whenever  either  of  two  adja- 
cent characters  have  coincident  nonzero  kerns/  i.e./  either 
the  rignt  kern  of  the  left  character  is  nonzero  or  the  left 
kern  of  the  riaht  character  is  nonzero  (or  both).  The  capa- 
bility of  sett  ina  fonts  with  kernina  was  neither  a  Property 
of  the  original  system  nor  was  it  an  enhancement  objective; 
however/  to  facilitate  its  future  implementation/  kerning 
information  is  stored  in  character  definitions  and  can  be 
updated  by  the  font  editor/  Edf.  The  two  fonts  where  kern- 
ing occurs/  GRFX10  and  G  R  F  x  1  4  ,  reguire  no  special  treatment 
by  typesetting  programs. 

Additional  character  dimensions  are  solely  for 
accessing  the  bit  picture  of  the  character.  The  rows-from- 
fOD  (rft)  aescribes  the  numner  of  blan<  (all  zero)  raster 
lines  above  the  character  picture  in  the  frame/  thus/  this 
part  of  the  character  oicture/  which  is  blank,  need  not  be 
stored.  Data-row-count  (drc)  is  a  count  of  the  number  of 
raster  lines  which  form  the  visible  picture  and  which  are 
stored.  Blank  raster  lines  required  to  fill  out  the  bottom 
of  the  picture  frame  are  not  stored/  and  the  number  of  blank 
lines   needed   is   computed   using  the  font  height/  rft/  and 
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drc.  Figure  3  illustrates  that  portion  of  the  picture  which 
is  storeo  and  the  full  picture  which  is  excanced  by  a  pro- 
gram. 

3.   SAIL  Font  File  Format 

The  SAIL  fonts  .</ere  received  as  digitized  files 
written  on  a  taoe  oy  a  PQP-10  at  St-anforo.  The  PDP-10  has  a 
36-bit  word  with  four,  9 - b  i  t  bvtes  o  e  r  word;  therefore^ 
reading  files  from  tne  tape  into  a  PDP-11  file  aid  not  leave 
the  information  in  a  readily  useable  format.  For  each  word 
of  data  fro^  the  PDP-10,  six  8-bit  bytes  on  the  PDP-11  were 
required/  the  two  hi  ah  order  bits  of  each  byte  being  wast- 
ed. Conversion  to  a  -n  o  r  e  useable^  compact  font  file  format 
was  mandatory.  The  SAIL  and  NPS  font  file  formats  are 
similar  Dy  design;  however,  a  few  minor  cnanaes  have  result- 
ed in  significant  memory  savings.  8  a  s  i  c  a  1  1  y  r  a  SAIL  font 
file  is  broken  into  three  sections: 

a .   Heade  r  Table 

At  the  beginning  of  the  file  is  a  header  table. 
The  cnaracter  code  collatina  seauence  is  the  indexing 
mechanism  *or  the  table/  and  the  table  provides  random  char- 
acter definition  accessina,  an  absolute  necessity  when 
minimizing  execution  times  for  sett  i  na  tyoe.  The  table  con- 
tains \2c  woros,  the  left  half  of  each  word  holding  the 
character  width  and  the  right  half  being  a  pointer  to  the 
character  definition.  A  zero  character  width  in  any  posi- 
tion imclies  that  the  particular  character  is  not  defined  in 
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the    f  ont  . 

b.  Font  Dimensions/Oescriot ion 

The  font  dimensions  follow  the  header  table:  the 
font  height/  the  maximum  character  width*  and  the  font  logi- 
cal height.  Immediately  following  the  dimensions  is  an  op- 
tional ASCII  description  of  up  to  480  characters.  Five 
characters  are  packed  into  each  36-bit  word/  and  the 
descriotion  is  terminated  by  an  all  zero  byte  ('\0'). 

c.  Character  Definitions 

The  remainder  of  the  file  contains  the  character 
definitions  pointed  tc  by  the  header  table.  Each  definition 
follows  an  identical  format  and  contains  character  dimen- 
sions/ the  bit  oicture/  and  the  picture  accessing  informa- 
tion. 

Fiaures  a  and  5  illustrate/  respectively/  the 
SAIL  file  and  character  definition  formats. 
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PICTURE  STORAGE/EXPANSION 
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SAIL  FONT  FILE  FORMAT 
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SAIL  CHARACTER  DEFINITION 
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RW  =  Raster  Width 

CC  =  Character  Code 
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U .       Character  Set 

The  ASCII  and  SAIL  character  sets  are  two  different 
maopinos  of  characters  into  a  code  (0-128),  Figure  ft  il- 
lustrates the  differences*  while  fiqure  7  displays  the  com- 
plete sets.  where  the  ASCII  set  contains  controj  charac- 
ters/ the  SAIL  set  contains  some  additional  Printable  char- 
acters. This  situation  was  annoying  since  there  were  no 
hara-wired  keyboards  at  ."JPS  with  which  to  select  these  char- 
acters. Consequently?  to  select  characters  occuoyinq  ASCII 
code  positions  whicn  are  not  printable/  text  processing  and 
typesett  inc  proqrams  have  software  escaop  mechani  stis  to  get 
at  these  characters.  The  escaoe  mechanism  is  aescribed  in 
Chapter  4. 


SAIL/ASCII  DIFFERENCES 
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SAIL  CHARACTER  SET 
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5.   Listfont  and  Error  Detection 

As  previously  descrihedf  the  font  files  reaa  in  from 
tape  required  conversion  to  a  format  more  suitable  to  UNIX 
and  the  PDP-11.  Prior  to  converting  the  files/  Listfont  was 
written.  Listfont  was  designed  to  examine  a  Stanford  font 
filer  ignoring  wasted  hits  and  interpreting  18-bit  PDP-10 
halfworos  as  lb- bit  PDP-11  full  words.  Listfont  reads  in 
the  header  table;  it  extracts  tne  font  dimensions  and 
description*  displaying  them  on  the  CRT  screen/  and  Proceeds 
to  process  each  character  definition.  In  prccessina  each 
character  Definition,  Listfont  performs  computations  to  en- 
sure that?  if  the  character  and  raster  widths  differ/  there 
is  valid  kern  i  no.  A  1  s  o  /  Listfont  chec'<s  and  flags  nonzero 
left  kerns  of  characters  whose  raster  and  character  widths 
are  egual.  Additional ly,  using  the  picture  accessing  infor- 
mation, Listfont  verifies  oicture  storage.  An  optional  "-1" 
argument  to  Listfont  causes  the  individual  character  dimen- 
sions and  picture  to  be  disolavea  on  the  CRT  screen.  Anoth- 
er type  of  error  w  h  i  c  n  Listfont  detects  is  tne  presence  of 
extraneous  bvtes  in  the  file. 

In  process  i no  a  f  i  1  e  ,  Listfont  counts  each  byte.  A 
comparison  of  this  byte  tally  with  the  file  size  indicated 
bv  an  "Is  -1  filename"  proves  the  absence  or  presence  of 
such  extraneous  bytes.  The  time  invested  in  the  desian  and 
writina  of  Listfont  was  returned  by  its  success  in  detecting 
errors  of  the  above  types.  Two  files  had  characters  which 
had  nonzero  left  kerns  and  identical   character   and   raster 
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widths.  Furthermore*  two  other  files  were  found  to  contain 
several  occurrences  of  extraneous*  unused  bytes.  Such  error 
detection  was  imoortant  in  that  it  greatly  assisted  in  the 
desiqn  of  Transfile*  the  oroqram  to  convert  font  files  from 
the  Stanford  to  the  NPS  format.  Transfile  uses  the  same  er- 
ror detection  techniques  and  accomol is^es  error  correction 
concurrently. 

B.   FJLt  CONVERSION 

1  .   NPS  Font  File  Format 

Given  the  existing  Stanford  font  file  format*  the 
desiqn  of  an  N PS  format  was  not  difficult.  There  were 
several  criteria  for  the  desion.  First*  the  design  had  to 
be  compatible  with  UNIX  [Ref.  Ill  and  the  PDP-11  (lb -bit 
wora  Drocessinq).  Second*  file  size  needed  to  be  minimized 
to  facilitate  tyoesettinq  in  the  minicomputer  environment. 
And*  third*  the  format  needed  to  provide*  as  did  Stanford's* 
the  random  accessina  of  character  definitions.  The  NPS  font 
file  format  is  illustrated  in  f inures  ^  and  9 .  It  is  broken 
into  thr-ee  sections: 
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a .  Header  Table 

The  header  table*  at  the  beginning  of  the  file/ 
contains  two,  16-bit  words  for  each  of  the  possible  128 
characters  in  the  font.  The  indexing  mechanism  to  the  table 
is  the  character  code.  The  first  word  of  each  oair  contains 
the  character  width  in  the  rightmost  byte.  The  pointer 
structure,  indicating  the  location  of  the  character  defini- 
tion in  the  file,  consists  of  a  block  count  (512 
bytes/block)  in  the  leftmost  byte  of  the  first  word  and  an 
additional  byte  offset  contained  in  the  second  word.  A  max- 
imum block  count  of  2  55  and  a  maximum  byte  count  of  3  2  K  al- 
low for  font  files  to  approach  160K  bytes.  A  zero  in  the 
first  word  in  any  character  position  in  the  header  table  im- 
plies that  the  particular  character  is  not  defined  in  the 
font  . 

b.  Font  0 i mens i ons/Desc r i ot i on 

Only  three  dimensions  are  stored.  Font  height, 
maximum  character  width,  and  font  logical  height  are  each 
stored  in  words.  The  ASCII  description  follows  and  is 
stored   one   character   oer   byte.    It  is  terminated  with  a 

•\o«. 

C.   Character  Definitions 

Here,  the  MPS  format  provides  substantial  sav- 
ings in  memory.  Four  character  dimensions  are  stored,  each 
in  a  full  word:  the  raster  width,  left  <ern,  rft,   and   drc. 
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The  raster  lines  which  comprise  the  visible  portion  of  the 
character  picture  are  stored  sequentially  on  bvte  boundaries 
following  the  drc . 

d.   File  Advant aqes 

The  header  table  in  the  NPS  format  is  twice  the 
size  of  that  in  the  Stanford  version;  however*  each  NPS 
character  definition  stores  only  four  dimensions  as  opposed 
to  the  six  in  a  Stanford  character  definition.  This  trade- 
off results  in  no  real  savings  in  memory.  Significant  sav- 
ings occur  in  the  storage  of  the  raster  lines  of  character 
pictures.  In  the  Stanford  version/  raster  lines  wider  than 
18  pixels  occupy  one  full  36-bit  word  with  the  following 
raster  line  beginning  at  the  next  word  bounary?  hence*  up  to 
17  bits  could  be  wasted.  Tn  the  NPS  version,  raster  lines 
begin  on  byte  boundaries?  therefore*  no  more  than  7  bits 
will  ever  be  wasted  for  any  raster  line.  As  an  example*  as- 
sume a  fixed  width  font  of  19  pixels  is  created  and  that 
2*01b  total  raster  lines  are  needed  to  represent  all  charac- 
ter pictures.  The  NPS  format  would  reauire  b  *  0  4  8  bytes  or 
48*384  bits  (10*080  of  which  would  be  wasted).  The  Stanford 
format  would  require  2*016  words  or  72*576  bits  (34*272  of 
which  would  be  wasted).  The  NPS  format  would  have  stored 
the  equivalent  information  in  2/3  of  the  memory  required  by 
the  Stanford  format.  Berg  [Pef.  2]  has  stated  that  "as  a 
rule  of  thumb*  for  100  printing  characters  at  10  point  size* 
approximately  8*000  (16-bit)  words  of  storage  are  reaui  red." 
SAIL10  (120  printable  characters)*   BDR10   (120)*   and   NONS 
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(96)  have  file  sizes  of  8010,  6198,  and  3872  bytes  respec- 
tively. The  comparison  is  a  general  one  in  that  Berg's  rule 
specified  no  particular  clotting  density.  For  example*  if 
the  rule  were  applicable  to  a  plotting  device  with  a  plot- 
ting density  of  ^00  pixels  per  inch  (twice  that  of  the  Ver- 
satec)f  then  one  could  conclude  that  the  NPS  font  file  for- 
mat generally  reguirec  memory  in  accordance  with  the  rule. 

2 .   Transfile  and  Error  Correction 

Transfile  was  desianed  and  written  to  transform  font 
files  from  the  Stanford  format  to  the  NPS  format  and/  in  do- 
ing so»  to  detect  and  correct  anv  errors.  Transfile  takes 
pairs  of  arguments*  transforming  the  first  argument  of  a 
pair*  which  must  name  a  Stanford  file,  to  an  NPS  file  which 
is  given  the  name  of  the  second  argument  of  the  Dair.  An 
odd  number  of  arguments  causes  Transfile  to  exit.  In 
transforming  a  file,  the  program  first  creates  the  NPS  file 
ana  writes  out  a  blank  header  table.  It  then  examines  the 
header  table  of  the  Stanford  file  to  determine  the  number  of 
characters  in  the  font,  reads  in  tne  font  dimensions  and 
description,  and  processes  the  character  definitions.  As 
does  Listfont,  Transfile  ianores  the  two  wasted  high  order 
bits  of  each  byte  ana  compacts  18-bit  PDP-10  half  words  into 
16-bit  PDP-11  full  words.  It  writes  out  the  font  dimensions 
and  the  aescriotion,  if  any.  Transfile  also  writes  out  the 
NPS  filename  in  the  event  that  the  Stanford  file  had  no 
desc  r  i  pt  i  on  . 
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In  process  ina  each  character*  Transfile  checks  di- 
mensions to  ensure  compatibility  and  makes  corrections  if 
necessary.  For  example*  if  a  character  has  eaual  character 
and  raster  widths  and  a  nonzero  left  kern,  then  the  left 
kern  is  set  to  zero*  and  the  proper  dimensions  are  written 
out.  Listfont*  as  previously  mentioned*  detected  this  type 
of  error  twice.  Each  occurrence  was  in  a  font  which  had  no 
other  kerned  characters?  therefore*  the  error  was  corrected 
by  ignoring  the  nonzero  left  kern*  i.e.*  by  setting  it  to 
zero.  Transfile  also  detects  unused  (emoty)  bytes  in  the 
file*  essentially  throwina  them  away.  The  program  keeps  a 
running  count  of  bytes  written  out  and  marks*  in  a  program 
data  structure*  the  starting  byte  address  for  each  character 
definition. 

After  orocessing  the  last  character*  Transfile  seeks 
to  the  beginning  of  the  file  and  writes  in  the  new  header 
table.  Upon  finishing  each  pair  of  arguments*  the  program 
displays  the  file  size  in  bytes.  A  comparison  with  the  size 
indicated  oy  an  "Is  -1  NPSfilename"  verifies  a  successful 
file  transformation.  Files*  once  transformed*  decrease  to 
between  47-83  percent  of  their  original  size.  Execution 
times  were  not  measured  for  either  Listfont  or  Transfile  as 
both  programs  were  intended  to  be  run  only  once  on  any  one 
f  i  le. 


42 


III.   EDF 


A.   EDF. ..THEN 

Originally*  E d f  was  designed  by  Professor  Barksdale  to 
provide  the  capability  of  creating  and  editing  a  particular 
class  of  fixed  width  fonts*  all  characters  being  16  pixels 
wide  and  2  0  pixels  high.  Edf  was  an  interactive  program  im- 
plemented in  the  programming  language  C.  In  its  edit  mode* 
Edf  would  read  an  entire  font  tile  into  a  character  array 
(128x40).  Each  character  definition  was  accessed  by  its 
character  code  (0-127)*  and  its  bit  picture  consisted  of  the 
next  ^0  bytes*  two  bytes  representing  one  raster  line  in  the 
character  picture.  The  simple  font  design  and  data  struc- 
ture facilitated  easy  character  definition  accessing  for 
listing*  editing*  or  aeleting*  etc.  In  the  create  mode*  the 
array  (128x40)  was  cleared*  and  the  user  began  with  all 
characters  having  blank  oictures.  Edf  possesed  an  efficient 
command  handling  mocule  and  input  several  and  display 
routines.  Using  these  routines  as  a  skeleton*  Edf  was 
modifiea  to  edit  and  create  fixed  and  variable  width  fonts 
of  di  f  f erent  sizes. 
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B.   MODIFICATION  REQUIREMENTS 

Prior  to  modifying   Edf   to   manipulate   variable   width 
fontSf  certain  requirements  were  first  identified: 

1  .   File  Format 

Edf  needed  to  be  able  to  interface  with  the  newly 
designed  font  file  format.  It  had  to  be  able  to  access 
character  definitions/  font  dimensions  and  description,  and 
it  had  to  be  able  to  write  out  edited  or  created  fonts  in 
this  new  format  . 

2 .  Commands 

From  the  set  of  commands  available  in  the  original 
version  of  Edf*  a  minimal  subset  of  commands  needed  to  be 
implemented.  This  subset  could  be  defined  by  excluding  the 
"nice  to  have"  commands.  The  commands  available  under  the 
improved  version  of  Eaf  are    described  later  in  this  chapter. 

3.  Memory  Reau i r emen t s 

Edf  needed  to  be  able  to  deal  with  fluctuating 
memory  requirements  due  to  the  dynamic  sizing  of  characters 
in  the  fixed  and  variable  width  fonts.  Static  data  struc- 
tures could  not  provide  such  flexibility.  Specifically/  a 
buffer/  large  enough  to  hold  the  biggest  character  defini- 
tion/ would  be  needed.  Additionally/  Edf  would  have  to  be 
able  to  store  modified  character  definitions  of  varying 
sizes  until  the  edited  or  created  file  could  be  written  out. 
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a.   Edit  Status 

The  e  d  i  t  i  n  a  and  creating  of  variable  and  fixed  width 
fonts  increases  the  length  of  the  interactive  session,  and 
the  added  complexity  of  varying  character  dimensions  can  of- 
ten cause  a  user  to  forget  what  has  been  accomplished  and 
what  remains  to  be  done  during  the  edit  session.  Edf  needed 
to  be  able  to  orovide  some  table  or  display*  showing  the 
status  of  each  character  in  the  font/  i.e./  undefined/  de- 
fined but  unmodified/  mortified/  deleted/  etc. 

5.   Dimensions 


In  addition  to  being  able  to  change  character  pic- 
tures/ the  user  must  be  able  to  change  font  and  character 
dimensions/  and  any  change  must  be  checked  to  ensure  that  it 
is  a  valid/  reasonable  one.  As  examples/  a  user  must  not  be 
allowed  to  increase  the  character  width  of  a  particular 
character  to  a  value  greater  than  its  raster  width/  nor  must 
he  be  allowed  tc  change  a  font's  height  to  a  negative  value. 
Edf  must  be  able  to  compute  the  new  r f t  and  3rc  of  a  modi- 
fied character  picture/  however,  Edf  should  not  be  responsi- 
ble for  ensuring  that  the  modified  picture  is  accurately 
described  by  all  character  dimensions.  For  instance/  if  a 
user  were  to  change  the  picture  of  the  character  "a"/  making 
it  shorter  and  skinnier,  Edf  must  be  able  to  compute  and  up- 
date the  rft  and  drc.  The  user  would  then  be  responsible 
for  making  the  appropriate  adjustments  to  the  character  and 
raster   widths   of   "a".   Such  restrictions  are    necessary  to 


limit  program  overhead. 

C.   CONCEPTS  AND  TECHNIQUES 

1 .   Concept  s 

There  are  several  concepts  which  make  up  the  confi- 
guration of  the  interactive  font  edi  t/creat  ion  process.  A 
character  buffer  holds  the  character  definition  being  modi- 
fied* a  linked  list  manaaes  the  modified  character  defini- 
tion s  /  and  a  file/  if  in  the  edit  mode*  represents  the  in- 
formation (character  definitions)  reguiring  changes.  The 
UNIX  system  routine  Alloc(II)  [Ref.  13]  provides  temporary 
memory  to  store  modified  charcter  definitions.  Figure  10 
illustrates  the  file/work  area    configuration. 
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Edf  FILE/WORK  AREA 


Font  File 


Character  Buffer 


Modified  Character  Definitions 


Figure  10 
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2.   Techniques 

a.  Current  Character 

"Current  Character"  (cc)  is  a  pointer  to  a  char- 
acter position  (0-127)  in  the  font  being  edited  or  created. 
Any  command  takes  the  character  definition  pointed  to  by  cc 
as  its  operand.  The  character  definition  referred  to  by  cc 
is  never  loaded  into  the  character  buffer  unless  some  com- 
mand reouires  it.  Edf  prompts  with  the  octal  value  of  ccr 
initially  0,  followed  by  ">".  The  current  character  may  be 
incremented*  decremented,  or  set  to  any  value  in  the  range 
0-127.  ^Jraoaround  occurs  automatically  when  incrementing 
above  127  or  when  decrementing  below  0.  Whenever  cc 
changes*  Edf  determines*  Defore  executino  any  command*  if 
the  character  definition  in  the  buffer  has  been  modified. 
If  so*  Edf  reads  the  modified  definition  out  to  the  linked 
list  and  then  executes  any  awaitina  command. 

b.  Character  Buffer 

The  character  Duffer  is  4000  bytes  long  and  is 
large  enough  to  Held  the  biagest  character  allowed  within 
the  limitations  of  font  height  and  character  width.  Edf 
will  edit  or  create  fonts  up  to  120  pixels  (about  42  point) 
in  height  and  characters  uo  to  25S  oixels  wide.  There  is  a 
routine  responsible  *or  loading  character  definitions  into 
the  character  buffer.  Whenever  a  command  reouires  a  defini- 
tion* this  routine  will  first  inspect  a  global  flag  which 
indicates  if  the  definition  nointed  to  by  cc  is  already    in 
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the  buffer.  If  the  definition  pointed  to  by  cc*  the  operand 
for  any  command?  is  not  in  the  buffer/  this  routine  will 
load  it  into  the  buffer  from  one  of  two  olaces.  First?  de- 
finitions which  have  been  oreviously  modified  or  definitions 
in  a  font  being  created  will  be  loaded  into  the  buffer  from 
the  linked  list.  Otherwise;  the  definition  is  accessed  ana 
loaded  from  the  file  being  edited.  In  loading  the  buffer? 
the  character  dimensions  (raster  width,  left  kern?  rft?  and 
drc)  are  stored  in  the  first  eight  bytes.  Then?  using  the 
rft  and  the  raster  width?  the  reauired  number  of  blank  lines 
are  inserted  into  the  buffer.  For  example?  a  raster  width 
of  17  reoui  res  3  bytes  for  storage.  If  the  rft  were  ^?  then 
4  blank  lines  or  12(4x3)  zero  bytes  would  be  inserted. 
Next?  the  routine  uses  the  drc  and  raster  width  to  read  the 
digitized  oortion  of  the  character  picture  into  the  buffer? 
and?  finally?  using  the  rft?  drc?  and  font  height?  it  com- 
putes and  inserts  the  necessary  number  of  blank  lines  needed 
to  complete  the  character  picture. 

c.   Character  Picture 

The  character  picture  was  expanded  when  the 
character  definition  was  read  into  the  buffer.  The  picture 
is  accessed  beginning  at  the  ninth  byte  and  is  displayed  on 
the  CRT  screen  with  line  numbers  from  0  to  "font  height-1". 
The  width  of  the  matrix  in  which  the  character  picture  is 
displayed  is  eaual  to  the  number  of  bits  in  the  bytes  re- 
quired to  store  a  raster  line?  therefore?  unless  a 
character's   raster   width  is  a  multiple  of  8?  its  displayed 
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picture  will  make  the  character  apoear  wider  than  normal/ 
i.e./  if  a  character's  raster  width  is  17  and  the  font 
height  is  20,  then  the  character  picture  will  be  displayed 
in  a  20x24  matrix,  since  3  bvtes  (2a  bits)  are  required  to 
hold  a  raster  line. 

d.  Linked  List 

The  1 inkec  list  contains  a  node  for  each  modi- 
fied charcter  definition.  Each  node  contains  the  character 
code,  which  is  the  ordering  criteria  for  the  list  (the 
lowest  code  is  olaced  at  the  head  of  the  list),  a  pointer  to 
the  block  of  memory  (provided  by  Alloc(II))  holding  the 
character  definition,  the  status  of  the  character's  modifi- 
cation ("m" -modified,  "i "-included,  or  "d" -deleted),  and  a 
pointer  to  the  next  node  in  the  list.  A  dummy  node  with  a 
character  code  of  32677  marks  the  end  of  the  list. 

e.  Font/Character  Dimensions 

Having  adoed  or  chanaed  a  character  picture,  the 
user  may  want  to  change  or  may  need  to  change  character  di- 
mensions. Also,  he  may  wish  to  change  font  dimensions  or 
the  font  descriotion.  There  is  an  interactive  module  which 
is  guite  versatile  in  allowing  these  changes.  The  module  is 
described  in  the  command  descriptions.  It  displays  a  set  of 
instructions  uoon  entry  and  has  a  unique  prompting  symbol. 
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f.   Writing  Out  a  Font  File 

In  writing  out  a  file,  Edf  first  writes  a  blank 
header  table  followed  by  the  font  dimensions  and  descrip- 
tion. Then,  beginning  at  character  code  0,  Edf  incorporates 
modified  character  definitions  from  the  linked  list  with  un- 
changed definitions  from  the  file.  It  maintains  a  byte 
count*  in  512-byte  blocks  and  bytes*  of  oytes  written.  Once 
the  last  definition  has  been  written  out*  Edf  seeks  to  the 
beginning  of  the  new  file  and  writes  in  the  new  header 
table.  Egf  will  remove  the  new  file  from  the  directory  if 
no  character  definitions  were  written*  i.e.*  the  user  wrote 
out  a  font  in  which  he  had  deleted  all  characters  during  the 
edit  session.  As  a  final  Gesture/  Edf  displays  the  new  file 
byte  size  in  decimal  before  guitting. 

0.   CAPABILITIES 

1.   Invoking  Edf 

The  current  version  of  Edf  is  considerably  larger 
than  its  Dredecessor*  a  growth  resulting  from  the  addition 
of  modules  to  manipulate  the  "tore  comolex  and  more  dynamic 
format  of  the  new  font  files.  Creating  a  font  may  be  accom- 
plished by  one  of  several  means.  First*  a  call  to  Edf  with 
no  arguments  indicates  that  the  user  desires  to  create  a 
font  from  scratch.  The  user  must  specify  the  characteris- 
tics of  the  new  font  and  then  use  the  "a"  (add)  command  to 
create  specific  characters  at  each  character  position.    Re- 
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peating  this  process  for  128  characters  can  become  exceed- 
ingly tedious.  A  more  efficient  option  is  to  create  only  a 
few  new  characters  anc  to  then  use  the  "i"  (include)  command 
to  include  other  characters  from  a  comoatible  font.  A  third 
option/  somewhat  similar  to  the  second/  is  to  use  the  "dH 
(delete)  command  to  remove  unwanted  characters  from  a 
selected  base  font. 

To  edit  an  existing  digitized  font  file/  Edf  re- 
quires an  aroument  consistinq  of  either  a  font  file  name  or 
a  complete  path  name.  In  the  first  case/  the  font  editor 
assumes  that  the  font  is  located  on  the  directory 
M/. fonts. Ul/font/"  ana  preoends  that  strinq  to  the  argument 
before  issuing  a  system  call  to  open  that  file.  If  a  com- 
olete  path  name  is  used/  Edf  will  open  that  font  file.  If 
the  font  file  is  missing  or  if  the  font  file  contains  in- 
valid information/  then  Edf  will  exit  with  an  appropriate 
error  message.  A  hershey  font  [Ref.  51/  digitized  to  any 
desired  size  and  subject  to  the  limitations  discussed  later/ 
can  also  be  editea.  References  5  and  7  provide  excellent 
descriptions  of  the  Hershey  fonts.  Some  examples  of  valid 
calls  to  Edf  are  listed  below: 


edf 

This  indicates  that  the  user  desires  to  create  his  own 
font.  He  may  give  it  any  name  when  he  writes  it  out/  end- 
ing the  edit  session. 
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edf   SIGN41 


The  user  wants  to  edit  SIGN 41  on  "/. fonts.  01/font" 


edf   /usr/doyl e/f onts/HTR42 

The  user  wants  to  edit  an  exist  inq  Hershey  font  file 
called  HTR42,  a  Triplex  Roman  font  at  42  point/  on  directory 
Vusp/doyl  e/font  s/"  . 


edf  HSP20 

The  user  wants  to  edit  an  existing   Hershey   font   file 

called  hSR20»  a  Simplex  Roman  font  at  20  point*  on  directory 
"/.fonts.  01/font/". 


edf   -HGE  36 

The  user  wants  to  create  a  Hershey  font  file  in  the 
Gothic  English  tyoe  at  36  point.  He  may  write  it  to  any 
directory  after  it  has  been  digitized. 


edf   -HCS 

The  user  wants  to  create  a  Hershey  font  file  in  Complex 
Script  type.  The  ooint  size  defaults  to  10  point/  and  the 
font  may  be  written  to  any  directory  at  the  conclusion  of 
the  edit  session. 
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2.   Commands 

The  basic  command  line  consists  of  three  parts:  the 
current  character  selector,  the  command  itself/  and  argu- 
ments/ if  any*  to  the  command. 


a )  <numbe  r> 

Change  the  current  character  to  <number>.  The 
number  may  be  octal  (oreceded  by  a  zero)  or  decimal.  Any 
number  greater  than  127  is  converted  to  0,  and  anything  less 
than  0  is  converted  to  127.  Any  command  may  appended  to 
<number>.  The  effect  is  to  change  the  current  character 
first  and  then  to  execute  the  appended  command. 

Examples:  0176,   0,   161,   7*c  0  25,   16a. 


b)  *;- 

Increment  (decrement)  the  current  character.  Wrap- 
around occurs  as  in  <number>  above.  Either  <+>  or  <->  may  be 
used  but  not  both  on  the  same  command  line.  Any  command  may 
be  appended  to  either,  and  the  effect  is  to  increment  (de- 
crement) the  current  character  first  and  then  execute  the 
command.  Onlv  one  "+"  or  "-"  may  be  used  on  a  command  line. 

Examples:  +1,   -,   +,   +e,   +c0  U0. 
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C )  (<number>] \   [+)![-] a 

Aad  a  new  character  to  the  font  at  the  current  char- 
acter position.  The  "a" (add)  command  is  complex.  A 
"p" (parameter)  command  is  executed  automatically.  The 
displayed  instructions  to  input  the  dimensions  of  the  new 
character  must  be  followed.  The  new  character  is  being  de- 
fined at  the  current  character.  After  exiting  the  parameter 
command  looo»  the  user  may  use  the  "c"(chanqe)f  "e"(edit)/ 
"s" (shift)/  or  "l"(list)  commands  to  form  the  desired  char- 
acter picture.  The  character  buffer  has  previously  been 
zeroed.  If  the  user  uses  <number>,  "+",  or  "  -  "  to  change  the 
current  character  before  he  is  satisfied  with  the  new  char- 
acter oicture,  the  unsatisfactory  picture  is  stored.  If  this 
happens*  the  character  picture  may  be  relisted  and  changed. 

Examples:   +a,   -a*   056a*   19a*   a. 


d)  [<number>l  !  [  +  ]  !  ( -  ]  c  [<numher>]   [<number>J 

Change  lines  "s"  through  "  e  "  *  prompting  for  each 
line.  "c"  alone  sets  "s"  to  0  and  "eM  to  "height-1".  "cH 
followeo  by  one  number  sets  both  "s"  and  "e"  to  that  number. 
"c"  with  two  numbers  sets  " s"  and  "e"  accordingly.  The 
numbers  may  be  octal  or  decimal*  and  a  soace  is  reguired 
between  two  numbers. 
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Examples:   +  c,   -cO  10,  077c  1  0U4,   c,   +c  10. 


e)  dl<number>]   [<number>]  font  file 

Delete  characters  "s"  through  "e".  "d"  alone  sets 
Ms"  to  0  and  "e"  to  127,  effectively  deleting  the  entire 
font,  "d"  with  a  single  number  deletes  that  character  code. 
Md"  with  two  numbers  deletes  "s"  through  "e"  inclusive. 
Numbers  may  be  octal  or  decimal,  and  a  space  is  reguired 
between  two  numbers. 

Examples:   d,   d5,   d  0176,  a    0  057. 


f)  [<number>]  !  [+]  !  [-] e  [<numbe r>]   (<number>3 


Edit  lines  "s"  throuoh  "e",  prompting  for  each  line. 

Ms"  and  "e"  are  set  as  in  "c" (change).  While  editing  a  line, 

"cntl-d"  comoletes  the  line  as  it  was.    This   command  uses 
the  NPS  line-editor  functions  in  the  terminal  hanoler. 


Examoles:   e,   077e0  10,  +e  3  5,   -e,   017e  12. 


g)  f 
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Turn  on  (off)  a  flag  controlling  the  display  of 
character  dimensions.  Once  turned  on,  character  dimensions 
are  displayed  every  time  a  character  definition  is  fetched. 
Displaying  is  turnea  off  by  a  subseauent  "f".  "f"  may  be 
prepended  to  any  command. 

Examples:   f,   fl,   +fe  0  10,   0 1  76  f 1  0  10. 


h)  i  l<number>]   [<number>]  filename 

Include  characters  "s"  through  "e"  from  the  font 
file  "filename".  "s"  and  "e"  are  set  as  in  the  "d"(delete) 
command.  H  the  font  file  being  edited  or  created  and 
"filename"  are  not  compatible,  then  the  include  will  not  oc- 
cur. Subseauent  uses  of  "i"  do  not  require  "filename";  un- 
less, of  course,  the  user  wishes  to  include  from  another 
font  file. 

Examples:   i  0  057  bDJ8,   i  HCS20,  i. 


i )  [<number>] ! [+] ! [-1 1   [<number>]   [<number>3 


List  lines  "s"  through  "e"  of  the  current  character 


s"  and  "e"  are    set  as  in  "exchange). 


Examples:   +1  0  10,   -1,   1,   0761,   1  12. 


57 


J)     n 


Display  the  font  description  ana  a  table  reflecting 
the  status  of  the  ecit  session.  The  table  provides  an  ex- 
cellent rreans  of  managing  edit  work.  Figure  11  illustrates 
the  results  of  execut inn  an  "n"  command  during  an  edit  ses- 
sion. 


5?>   n 
SAItie  Delegate   (Stanford  Artificial   Intelligence  Laboratory) 

01234567 
003  X  X  X  X  X  X  X 

019XXXXXXXX 
©fOXXXXXXXX 
03OXXXXXXXX 
FOXXXXXXXX 
ffj  x  x  X  X  X  X  X  X 
esoMxxxxxxx 

07OXXXXXXXX 
fOXXXXXXXX 

il©xxxxxxxx 

120     X  X  X  X  X  X  X  X 

13GXXXXXXXX 

naxxxxxxxx 

150XXXXXXXX 
lSexXDDDDDD 
170DDODXXXX 
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undefined   'X'  unmodified   'I*  Include*   'D*  deleted   'fl'  aodified 


Figure  11 


E  x  amo 1 e : 


k  )  o 


The  "©"(parameter)  command  executes   an   interactive 
module  of  E d f  which  allows  the  modification  of  character  and 
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font  dimensions  and  description.  A  set  of  instructions  will 
be  displayed  and  may  be  recalled  if  required.  This  module  is 
quite  versatile.  The  user  must  keep  in  mind  that  character 
and  font  dimensions  are  beinq  changed/  not  character  pic- 
t  ures  . 

Examo 1 e  :   p 


1  )  q 


Quit  warns  once  if  changes  have  been   made   and   not 
written  out;  otnerwise,  it  exits*  closing  any  open  files. 

Examo 1 e :   q . 


m)  [<number>]  1  [  +  ]  !  [-1  s  ljrjuid  [<number>]   t<number>) 

Shift  lines  "  s "  through  " e "  one  pixel  left(l), 
right (r),  ud(u),  or  down(d).  The  resultina  lines  are  au- 
tomatically disolayea.  "sH  and  "e"  are  set  as  in 
"c"  (chanqe) . 

Examoles:   +s!0  10,   044su  10,   sr,   -sd. 


n)  w  filename 
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Write  out  the  font  file  beinq  edited  or  created  to 
"filename".  "w"  must  have  a  "filename"  and  will  not  allow 
the  user  to  write  to  the  font  file  being  edited.  "w" 
displays  the  byte  size*  in  decimal,  of  "filename"  and  then 
performs  a  "q"(guit).  Writing  out  a  font  file  takes  longer 
than  writing  out  a  normal  file. 

Examples:   w  temp,   w  /. font s . 0 1 / font /HC 120 . 


o)  < rubou t > ! <b reak> 

Either  key  causes  an  interrupt  which  is  trapped. 
Whatever  command  was  executing  is  stooped,  the  previous  en- 
vironment restored  (the  command  loop  is  reentered),  and  the 
user  may  continue.  Neither  key  undoes  anything;  they  merely 
give  a  mechanism  for  killing  commands  without  killing  the 
program . 


E.   LIMITATIONS 

There  are  two  types  of  limitations  to  Edf.  First,  there 
are  "nice  to  nave"  type  commands  such  as  folding  character 
pictures,  italicizing  fonts,  and  producing  bold  fonts  which 
were  not  included  aue  to  time  constraints  but  which  could 
easily  be  added  in  the  future.  Second,  Edf  has  not  had  a 
thorough  testing.  There  are  many  checks  throughout  the  pro- 
gram which  were  incluoed  to  detect  bad   font   files   and   to 
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prevent  the  program  from  abnormal  termination.  Edf  is  good 
at  screening  commanos  and  at  flaaging  bad  ones.  Although 
possible  to  string  some  commands  together  on  one  command 
1ine>  some  combinations  are  bound  to  produce  strange 
results.  The  user  should  combine  commands  only  as  described 
in  the  preceding  section.  Despite  its  limitations^  Edf  is  an 
extremely  useful  tool. 
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IV.   TYPESETTING  TOOLS 


The  user's  manual  [Pef .  7}  provides  detailed  instruc- 
tions on  the  use  of  the  two  typesetting  tools  described  in 
this. chapter. 

A.   PRFONT 

1 .   Des  i  qn 

Prfont  was  designed  as  a  final  test  of  a  digitized 
font.  If  a  font/  when  displayed  by  Prfont/  appears  ragged/ 
then  it  is  not  yet  satisfactory  for  use  in  typesetting. 
Prfont  displays  an  entire  *  o  n  t  /  sett inq  characters  on  hor- 
izontal lines  in  their  collatina  sequence.  To  do  this/ 
Prfont  reaas  in  the  header  table  and  font  dimensions  from 
the  font  file/  checking  for  invalid  font  dimensions.  First/ 
using  the  Versatec  simultaneous  printer/plotter  mode/  the 
font  name  is  centered  above  where  the  font  will  be 
displayed.  Prfont  then  runs  through  the  header  table  ac- 
guiring  enouah  characters  for  a  row.  Once  a  row  has  been 
filled/  Prfont  fills  plot  buffers  with  the  digitized  pic- 
tures of  the  collected  characters.  Plot  buffers/  once 
filled/  are  sent  to  the  Versatec  one  at  a  time.  Once  a 
number  of  olot  buffers  equal  to  the  height  of  the  font  have 
been  sent/  the  line  of  character  pictures  is  complete/  and 
one  line  of  characters  has  been  set.   Prfont   then   plots   5 
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blank  Plot  lines  to  provide  character  line  spacing.  Before 
continuing/  the  program  frees  the  allocated  memory  (from 
A 1  1 oc (II))  that  it  acauired  to  hold  the  character  defini- 
tions awaiting  plotting.  Prfont  frees  this  memory  in  the 
reverse  order  in  which  it  was  requested.  This  reverse  order 
of  freeing  is  important.  During  the  testing  of  Prfont »  cer- 
tain sequences  of  memory  allocations/  if  not  freed  in  re- 
verse order,  caused  an  abnormal  program  termination  when  the 
program  was  later  reauesting  additional  memory  (in  the  sys- 
tem routine  Alloc(II)).  This  problem  became  much  more  com- 
plex in  Signmkr  where  certain  characters  were  used  several 
times  on  a  line.  Prfont  then  gets  another  row  of  charac- 
ters, continuing  the  process  until  all  characters  in  the 
font  have  been  displayed.  In  setting  character  pictures, 
Prfont  sets  all  the  -bytes  used  to  store  the  bit  picture. 
For  example,  if  a  character  has  a  raster  width  of  17,  then  3 
bytes(24  bits)  are  set  in  the  olot  buffer,  as  opposea  to  the 
settina  of  the  first  17  bits  alone.  Setting  pictures  by 
bytes  as  opposed  to  bits  greatly  speeds  the  process  of  fil- 
ling olot  buffers  while  producing  the  same  character  pic- 
tures . 

2 .   Feat  ures 

Prfont  takes  multiple  arguments,  either  font  names 
or  full  pathnames.  Prfont  ensures  a  one  and  one  half  inch 
margin  at  the  top  of  the  page  and  one  inch  margins  else- 
where. Furthermore,  Prfont  looks  ahead  to  ensure  that  the 
next  font  to  be  displayed  will   fit   on   the   current   page, 
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causing  a  page  eject  if  sufficient  room  does  not  exist. 
Prfont  also  takes  an  optional  numeric  argument.  This  argu- 
ment must  be  the  the  first  argument  and  must  be  oreceded  by 
a  "-".  The  argument/  any  number  from  1  to  2b 4 r  resets  the 
width  of  the  display  field  in  olot  bytes.  Often/  in  an  ex- 
tremely large  font  or  on  days  when  UNIX  is  servicing  many 
usersr  Alloc(II)  will  be  unable  to  provide  the  memory  re- 
quired to  hold  the  character  definitions  awaiting  plotting. 
If  this  situation  occurs/  the  program  exits/  Displaying  a 
message  to  rerun  with  a  narrower  display  field.  Such  a  field 
would  hold  fewer  characters  and/  therefore/  reouire  less 
memory.  The  default  pagewidth/  or  display  area/  is  2\b  plot 
bytes . 

B.   SIGNMKR 

1 .   Design 

As  the  thesis  objectives  requi  ring  the  modifications 
of  Troff  and  V t s  were  not  attained/  this  author  desired  some 
means/  however  limited/  of  setting  text  with  the  adapted 
fonts.  With  that  objective  in  mind/  Signmkr  was  designed. 
Signmkr  reads  lines  from  a  text  file  interspersed  with  a 
limited  set  of  text  processing  commands  and  sets  the  text/ 
according  to  the  commands/  in  the  selected  fonts.  Briefly/ 
the  design  includes  Doth  text  processing  and  typesetting 
functions.  The  program  is  a  novelty?  it  is  more  suited  to 
making  signs  than  for  producina  documents. 
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Signmkr  loads  a  default  font»  SAIL10,  and  commences 
to  read  characters  into  a  text  buffer  until  a  '\n'  is  en- 
countered. Further  described  in  the  command  listings  in  the 
following  section/  there  is  an  escape  mechanism  to  provide 
breakpoints  at  which  certain  text  processing  and  typesetting 
tasks  are  oerformed/  e.g./  loading  a  new  font >  centering  a 
line  of  text/  specifying  a  character  code  for  a  printable 
SAIL  character  in  an  ASCII  control  character  position/  etc. 
Characters  are  transferred  one  dv  one  from  the  text  buffer 
to  a  print  buffer.  Durina  this  transfer  a  plot  width  is 
maintained  and  escaoe  options  handled.  Once  a  '\n'  has 
been  found  in  the  text  buffer  or  the  clot  width  of  the  print 
buffer  exceeds  the  paaewidth  (  the  concept  of  pagewidth  is 
the  same  as  that  in  Prfont  )#  transferring  stops?  and  charac- 
ters in  the  print  Duffer  are  exoanaea  into  multiple  plot 
buffers  bv  the  insertion  of  their  digitized  pictures. 
Again,  the  clot  buffers  are  sent  to  the  Versatec  one  by  one; 
however/  in  Signmkr/  digitized  cictures  are  set  bit  by  bit 
as  ODPosea  to  Prfont's  byte  by  byte  oicture  setting/  and 
pagewiath  is  measured  in  bits  as  opposed  to  bytes.  The 
overhead  involved  in  extracting  the  bits  from  the  bytes 
storing  a  raster  line/  has  been  minimized.  Only  one  pro- 
cedure call  is  required  to  obtain  the  next  bit  in  a  raster 
line. 

If  a  user  has  dac^d  a  character  in  a  file  and  if 
the  characters  are  Deing  set  in  a  font  in  which  that  partic- 
ular character  is  undefined/  Signmkr  will  automatically   in- 
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sent     the    olank     (040)     character     in     its    olace.  If       the       font 

has  no  blank  character,  Signmkr  exits.  whenever  Siqnmkr 
cannot  handle  requests,  it  disclays  diagnostics  and  the  line 
being    processed    before    e  x  i  t  i  n  a  . 


Example:  this   source 

caaaaanaaaotco  caaaaanaaaaco 

~     U     "     U  a(3aaaaa-*"     B     -*  NIL  ~ 
Xaa(3aaVaaaaaS  ^aaaaaVaaaaal 

<v     caaaaanaaaaao 

Xa-*~     A     ~  NIL  ~ 
XaaaaaVaaaaat 


produces    this. 


B 

NIL 

A 

NIL 

F  i  qu re     12 


2 .       Features 

Fiaures     12    ana     13    are    pxamoles    of     Sianmkr's    capabil- 
ities,      and,        in    fact,     fiaure     13    is    an    excellent    description 

of  Signer  in  itself.  Some  of  the  figures  in  this  thesis 
and  most  of  the  figure  titles  were  set  by  Signmkr.  The 
various  commands  to  S  i  a  n  m  <<  r  are  summarized  below.  "ESC"  is 
the    ASCII    escaoe    character     (0  33). 


)       ESCc     <    one     line    of     text 


The    "center"    command    centers    one    and    only       one       line 
of     text,     anrj    that     line     is     the     line     immediately    following    the 


bo 


command.  The  user  must  use  this  command  for  each  line  to  be 
centered.  If  a  line  is  too  long  to  be  centered*  then 
Siqnmkr  will  inform  the  user  of  this  fact  and  ignore  the 
1  i  n  e  . 


b)   ESCf < *ont name> 


This  command  allows  the  user  to  change  the  font  be- 
ing used  for  typesettinaJ  it  must  be  usea  only  at  the  head 
of  a  line  or  on  a  line  by  itself.  Full  oathnames  are  ac- 
ceDtaole.  A  blank  must  not  be  left  between  the  command  and 
the  new  font  name. 


c )   ESCoaVn 


This  is  the  "caaebreak"  command  and  is   similar   to 

the   ".bo"  commana  used  in  nROFF.   It  sends  a  form-feed  s  i  a  - 

nal  to  the  Versatec.   The  command  should  b  <=■  used  on   a   line 
by  itself. 
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d)   ESCpo\n 


The  "begin  Daragraoh"  command  indents  the  text  line 
for  pa ragr aoh i no .  The  size  of  the  indent  is  determined  by 
the  size  of  the  current  font.  Like  the  "pagebreak"  command/ 
it  should  be  on  a  line  bv  itself. 


e)   ESCs<number> 


The  "space"  command  inserts  blank  lines  within  the 
text.  The  height  of  the  blank  line  is  eaual  to  the  font 
height.  A  blank  must  not  be  left  between  the  comrnand  and 
the  number.   The  number  may  be  octal  (leading  0)  or  decimal. 


f)   ESCo<number> 


This  command  soeci  ties  a  character  by  its  character 
code  within  the  current  font.  The  command  may  be  used  at 
any  ooint  within  a  line/  but  it  must  not  contain  blanks. 
This  command  is  useful  in  accessing  a  character  from  a  SAIL 
font  whose  character  code  corresronas  to  a  control  character 
in  ASCII.   Numbers  may  be  octal  (leadino  0)  or  decimal. 
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Users  with  orevious  experience  with  text  Drocessinq 
proqrams  should  have  no  trouble  in  adapting  to  Sianmkr. 
However^  caution  should  oe  exercised  when  usina  the  " ESCod" 
(paragrach)  and  "ESCf"  fchanae  fonts)  commands  at  the  same 
point  in  the  input  file.   The  two  seauences  of  input  lines 


(a)  ESCf  BDR8 
E  S  C  p  o  \  n 
ESCf  HTR30\n 
<  incut  text  > 


(b)  ESCf  BDR8 

ESCf  HTP30\n 

ESCDD\n 

<  i  npu t  text  > 


are  not  identical.  Sequence  (a)  will  set  ud  the  indentation 
for  the  next  oaraqraph  assuming  a  font  height  of  8  point/ 
but  the  text  will  actually  be  set  in  30  ooint  type/  so  the 
indentation  will  not  be  oovious.  Sequence  (b)  chanaes  the 
font  heiaht  to  3  0  ooint  and  then  indents  based  on  that 
height. 
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V.   CONCLUSIONS 


A.   ATTAINMENT  OF  THESIS  OBJECTIVES 

In  retrospect/  the  thesis  effort   may   be   divided   into 
t  h  ree  main  areas: 

1.   Data  Base  of  Digitized  Fonts 


First*  a  data  base  of  diaitized  fonts  for  a  16-bit 
environment  was  created.  This  accomplishment  encompassed 
the  first  two  thesis  objectives  listed  in  the  Introduction, 
the  design  of  a  UNIX  comoatible  font  file  format  and  the 
conversion  of  the  thirty-four  SAIL  fonts  to  this  format. 
This  effort  began  in  early  February*  19  7  7  and  was  completed 
in  late  warch.  Consicerable  time  was  spent  in  desiqning  and 
programming  Listfont.  Listfont  provided  for  the  processing 
of  the  raw  data/  the  Stanford  font  files  on  tape.  After 
desiqning  and  Drograming  Listfont/  this  author  was  thorough- 
ly familiar  with  the  concepts  involved  in  storing  digitized 
character  definitions  and  was  aware  of  several  errors  in  the 
existing  font  files.  This  awareness  was  invaluable  in 
oesianina  a  compact  font  file  format  for  use  under  UNIX  and 
in  designino  Transfile/  the  program  to  correct  errors  while 
transforming  SAIL  fonts  to  the  NPS  format.  The  resulting 
files  represent  a  variety  of  different  software  type  for  use 
in  computer  typesetting. 


2.  Software  Tool  Deve 1 oomen t 

The  second  area  of  the  thesis  effort  consisted  of 
completing  thesis  objectives  three  through  six:  the  reaesign 
of  Edf  to  edit  and  create  fixed  and  variable  width  fonts* 
the  design  of  Prfont  to  display  fonts*  and  the  design  of 
Signnikr  to  set  text  in  the  digitized  fonts.  None  of  the 
many  proolems  encountered  in  program  design  reguired  the 
modification  of  the  font  file  format  initially  designed. 
The  file  desiqn  was  such  that  character  pictures  were  easily 
accessible*  and  programs  could  often  use  routines  from  pre- 
viously desiqned  programs  with  only  minor  tailoring. 

3 .  Documen  t  at  i  on 

The  third  and  final  phase  of  the  thesis  effort  was 
the  documentation.  First*  a  user's  manual  was  written  (co- 
authored)  (Refs.  5  ana  7 ] •  The  manual  was  desiqned  for  a 
student  with  moderate  experience  with  LI  NIX*  no  experience  in 
computer  typesettina*  and  a  desire  to  pursue  further 
development  of  computer  typesetting  under  UNIX.  Second*  the 
thesis  documents  the  total  effort*  focusing  mainly  on  pro- 
gram desian.  During  this  final  phase*  the  author  came  to 
several  conclusions  concerning  computer  typesetting  under 
UNIX  and  comouter  typesetting  in  general.  In  the  former 
case*  there  is  great  potential  for  experimentation  in  the 
desiqn  of  a  software  oriented  computer  typesettina  environ- 
ment* a  software  environment  which  could  conceivably  be 
modified   to   function   on   different  computer  systems  using 
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different  orinting  devices.  In  the  latter  case*  there  is 
great  potential  in  printing-related  industries  for  increased 
profits  and  lower  machine  maintenance  costs. 

B.   COMPUTER  TYPESETTING  UNDER  UNIX 

Althouoh  all  of  the  programs  could  be  improved*  as  is 
discussed  later/  the  system  software  is  efficient/  and  the 
algorithms  could  be  reproarammed  to  adapt  the  svstem  to 
another  computer  or,  under  UNIX,  to  drive  a  higher  speed 
plotting  device.  fo  gain  some  appreciation  for  the  time  re- 
guired  to  set  type  under  the  present  system,  "THE  QUICK, 
BROWN  POX  JUMPED  OVER  THE  LAZY  WHITE  DOG."  was  set  in  in- 
creasing font  sizes.  The  timed  results  are  displayed  in 
Table  3. 
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FONT 

REAL 

SYSTEM 

BOJ8 

18.0 

0.5 

BDR10 

28.0 

0.5 

SAILIO 

27.0 

0.8 

B0R15 

27.0 

1.5 

SIGN22 

35.0 

3.2 

RDR25 

34.0 

2.6 

SIGN41 

44.0 

10.6 

INPUT/OUTPUT 


2.8 
3.0 
2.7 
3.6 
3.8 
4.6 
5.6 


Times  are    in  seconds. 

Table  3 


By  examining  Table  3,  two  conclusions  are  obvious.  First* 
system  and  input/outout  times  are  dependent  on  font  height. 
Secondly/  given  the  above  times  for  the  setting  of  one  sen- 
tence/ the  oroduction  of  large  documents  would  be  unreason- 
able. Slow  typesetting  times  are  caused  by  the  low  Dlot 
speed  of  the  Versatec/  ana  the  constant  demands  on  the 
PDP-11' s  unibus  design  which  services  all  users  and  peri- 
pheral devices.  Figure  21  of  Appendix  A  required  32.5 
seconds  of  system  time  and  26.6  seconds  of  input/output 
time.  In  summary/  UNIX  has  orovided  an  excellent  environ- 
ment for  the  design  of  a  system  of  programs  to  effect  com- 
puter typesetting;  however/  UNIX  is  by  no  means  prepared  to 
oroviae  the  environment  needed  to  continuously  operate  such 
a  s  y  s  t  em . 
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C.   FUTURE  MODIFICATIONS 

The  results  of  this  thesis  and  the  efforts  documented  in 
reference  S  are  that  UNIX  now  posseses  a  large  aata  base  of 
fixed  and  variable  wioth  fonts  and  three  significant  tools 
for  further  development  of  the  system.  Troff  and  Vts  have 
not  been  modified,  ana,  until  they  are,  computer  typesetting 
under  UNIX  lacks  its  ootential  capability.  Considering  that 
the  ore-thesis  system  configuration  still  exists  for  the 
original  four  fonts/  the  expanded  font  library  and  improved 
tools  represent  a  significant  enhancement.  This  author 
recommends  that  futher  development  to  enrich  the  system  be 
conducted  in  the  following  areas: 

1.  Troff 

Modify  Troff  to  process  text  files  to  be  set  in  any 
of  the  fonts  in  the  present  library.  The  major  effort  in 
this  area  is  the  design  of  a  scheme  for  Troff  to  compute 
character  widths  from  a  font  name  and  height.  Troff  should 
produce  a  file  to  be  processed  by  the  virtual  typesetter, 
Vts. 

2.  Vts 

Modify  Vts  to  set  fixed  ana  variaDle  width  fonts 
stored  in  the  NPS  font  file  format. 
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3  .   Sof  t ware  Tools 

Although  useful  in  their  present  forms,  additional 
options  could  be  addec  to  Edf  and  Signmkr.  First*  the  capa- 
bilities of  producing  italicized  and  bold  fonts  in  Edf  from 
a  roman  font  would  be  a  significant  improvement.  Second/ 
although  its  place  in  the  computer  typesetting  system  will 
always  remain  that  of  a  novelty,  some  additional  text  for- 
matting options  in  Signmkr  would  make  it  a  more  useful  tool. 
Both  Prfont  and  Signmkr  can  be  made  to  execute  more  rapidly 
by  filling  and  sending  groups  of  plot  buffers  to  the  Versa- 
tec  as  opposed  to  the  present  design  of  transmitting  plot 
buffers  one  at  a  time,  and/  in  all  three  programs/  the 
number  of  disk  reads  for  each  character  definition  access 
could  be  reduced  from  five  to  two.  Presently/  the  complete 
character  cefinition  is  accessed  by  seeking  to  and  reading 
the  raster  width;  three  subsequent  "reads"  obtain  the  left 
kern/  rft/  and  drc,  respectively.  After  some  computations/ 
the  entire  bit  picture  can  then  be  read  into  program  memory 
(the  fifth  "  reaa" )  .  Instead/  by  seeking  to  the  definition 
and  readina  all  four  dimensions  (8  bytes)  into  a  buffer/  the 
bit  picture  can  be  read  into  program  memory/  after  some  com- 
putations/ in  a  secona  "read".  Thus/  the  number  of  "reads" 
per  character  access  is  cut  from  5  to  2. 

4.   Kerninq 

The  concept  of  kerning  shoula  not  be  implemented  un- 
til  Troff  and  Vts  have  been  fully  integrated  into  the  fixed 
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and  variable  width  font  environment.  When  implemented/  con- 
sideration should  be  given  to  either  modifyinq  Edf  or  creat- 
ing a  separate  program  to  provide  the  ability  to  display 
pairs  of  characters  with  the  kerning  effect. 

5.   PI ot  Caoabi  1 i  ty 

As  a  final  enhancement/  both  Troff  and  Vts  should  be 
modified  to  orocess  textual  and  graphical  information  from 
the  same  file*  allowing  for  limited  graphical  displays  in  a 
primarily  textual  document.  This  modification  demands  effi- 
cient use  of  memory  as  the  Versatec  cannot  reverse  paper 
movement/  and  Vts  must  be  able  to  store  information  in 
"looking  ahead"  to  comolete  araphical  displays.  The  need 
for  comouter  typesetting  systems  to  handle  both  graphical 
and  textual  data  is  well  documented  and  such  systems  provide 
great  versatility  over  others  where  the  two  types  must  be 
treated  separately.  For  example/  as  early  as  1963/  the  U.S. 
Government  Printing  Office  issued  a  reouest  for  a  typeset- 
ting system  based  on  photocomposition.  One  of  the  require- 
ments was  an  ability  to  handle  randomly  occurring  graphic 
formats  in  text  documents  [Kef.  1 4 ]  . 
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APPENDIX  A  FONT  DESCRIPTIONS 


The  SAIL  *onts  are  displayed  on  the  following  oaaes. 
The  displays  were  produced  by  Prfont  and  are  in  the  same 
order  as  the  listina  in  Table  1  of  Chapter  1 .  The  final 
page  of  the  appendix  was  set  by  Signmkr  and  is  included  to 
illustrate  the  contrast  among  the  fonts.  A  comparision  of 
the  SAIL  fonts  displayed  on  the  following  Dages  and  those 
displays  in  reference  \2  reveal  added  characters  in  the  NPS 
versions.  The  additions  were  made  at  Stanford  after  the 
publication  of  reference  12.  The  additional  characters  have 
not  oeen  removed. 
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APPENDIX  B  PROGRAM  LISTINGS 


This  apoendix  contains  the  program  listings/  the  source 
codes,  for  the  programs  described  in  the  body  of  the  thesis. 
Each  listing  is  preceded  by  a  one  page  description  to  avoid 
having  to  refer  to  various  chapters  for  general  informa- 
tion. One  of  the  advantages  of  the  program  language  C  [Ref. 
10]  is  that/  while  not  self-documenting/  it  has  constructs 
which  are  very  descriptive?  however,  where  necessary,  com- 
ments have  oeen  added.  Subroutines  within  programs  are  gen- 
erally listed  in  a  standard  manner.  "Main"  appears  first  and 
is  followed  by  subroutines  in  order  of  decreasing  prom- 
i  nence . 
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LISTFONT 
DESCRIPTION 


12  May  1977 


LISTFONT 


1 ist font  [-11  <filename> 


Listfont  process  a  font  file  of  the  Stanford  format.  It 
examines  the  header  table*  the  font  dimensions*  and  the 
ASCII  descriotion.  In  doing  so*  Listfont  ignores  wasted 
high  order  bits  and  interprets  18-bit  PDP-10  halfwords 
as  16-bit  PDP-11  full  words.  The  font  dimensions  and 
description  are  displayed  on  the  CRT  screen.  Listfont 
then  processes  each  character  definition,  detecting  and 
flagging  d i sc reoanc i es  in  character  dimensions  or  char- 
acter picture  storage.  An  optional  "-]"  argument 
displays  character  dimensions  and  pictures  to  the  CRT 
sc  reen  . 


FILES 


<filename>  must  be  a  Stanford  formatted  file 
been  read  into  a  UNIX  file. 


which   has 
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LISTFONT 


LISTFONT 


LISTFONT 


^define    OK     i f (print f 1 ag) 

//controls    ODt ional     char    dimension/picture    listing 

f 1  oat    oy  tc  ; 

i  n  t    c  h  a  p  w  [  1 2  8  3  ; 

int  caddr [128] ; 

int  *y  f  *z  ; 

char  textbuf[480),  h  b  u  f  1 6 ] ; 

int  bi  tpt  r»b#  f o»b1 ef t  ; 

int  printflaq  0; 

int  unused  0; 

int  raf  0 ; 

int  1 k  f  0 ; 

char  *  d ; 


ma  i  n  (  a  rgc  /  a  rgv  ) 

int  argc;  char  **arqv?     { 

int  i  i  j  /' 

if  (—  argc  ==  0)     < 

print f ("PARAMETERS  ?"); 

e  x  i  t  (     ) ; 
} 
if     CargvCUtOJ     ==     '-')     {//    turn    on    Drintflag 

printflaq  =  I  } 

fp  =  OPEN(argv (21,0) ; 
> 

else  fp  =  OPENCargv III  ,0)  ; 
PtrblkC  );  //get  hdr  table 
c  h  a  r  b  1  k  C  );  //get  font  dimensions 
fontblk(  );  //get  font  ascii  descriction 
OK  d  p  i  n  t  f  (  "  3  .  Character  Definitions:\n"); 
OK  Dblnkln(P); 
j  =  1 28  -  unused? 

//process  the  'j'  characters  in  the  font 
f o p ( i  =  o ;  i<j;  i+  +  ) 

chardefsC  ); 
pbl nk 1 n( 1 ) ; 

//report  kemina  or  dimension  errors 

if (raf)printf ("Raster  widths  !=  char  widths. .  .  %  d  \  n  "  , raf); 
else  printf(" Raster  width  -  char  widths  all  equal\n"); 
if  (lkf)  printfC" Kerning  occurs  % d  times\n",1kf); 
//raf  should  equal  lkf 

else  d  r  i  n  t  f ( " M  o  nonzero  left  kerns\n"); 
//if  this  doesn't  agree  with  a  'Is  -1  filename' 
//then  there  are  extraneous  bytes  present 
printfC Total  bytes  processed:  %f\n",bytc+l.); 
CLOSE (fo) ; 

} 

PtrblkC  )  {//go  thru  hdr  table*  count  chars  in  font 
int  i  ; 
Dvtc  =  -1  .  ; 
y  =  charw;  z  =  cadari 
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f  o  r  ( i  =  o ;  i  <  1  28  ;  i+O     { 

*y  +  +  =  gethw(  ); 
*z  +  +  =  q  e  t  h  w  (  ),* 
} 

f or( i =0; i < 1 28 ; i ++ )  if  (charwtil  ==  0)  unused++J 


} 


int  gethw(  )  {//3  PDP-10  bvtes  to  2  PDP-11  bytes 

int    c  /  t  ? 

READ(fp,&c, 1) ; 

READ(fp,^c, 1 ) ; 

READ(fp,&t  rl); 

byte    =  +    3  .  ; 

retum(     (c     <<    6)     !     t     ); 
> 

by t es ( x ) 

int  x;  {//trash  x  bytes  ana  buto  up  counter 
int  i  r t ; 

f  o  r ( i  = 1 ;  i  <  =  x ;  it+)      { 
READ(fo,&t  fl)l 
byte  =  +  1  .  ; 
> 
} 

pb 1 nk 1 n ( x  ) 

int  x  ;  {//print  x  blank  lines 

int  i  ; 

for  (  i  =  1  ;  i  <  =  x ;  i  +  +  ) 

putchar('\n'); 
> 

ob 1 nk ( x ) 

int  x  ;  {//print  x  blanks 

int  i  ; 

for(i=i;  i<=x;  i++) 
putCharC  '); 
> 

c  h  a  r  b  1  k  (  )  {//print  font  dimensions 

print  f (nl .  Characteristics:^"); 
pbl nkl n (?)  ; 

b  y  t  e  s  (  9  )  ; 

printfC"     Overall  height  of  font  (pixels)=   %d\n", 

get hw  (  )  )  ; 
b  y  t  e  s  (  3  )  ; 
printfC"     width  of  widest  character:         %d\nM, 

get hw (  ) )  ; 
b  y  t  e  s  (  3  )  ; 
printfC"     Logical  heiqht  above  baseline=     %  d  \  n  "  , 

gethwC  )); 
b  v  t  e  s  (  1  n  8  )  ; 
Dbl nkl n(a)  ; 
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fontblM  )  {//print  font  ascii  description 

i  n  t  i  »  n  / 

Char  c  ; 

n  =  bleft  =  b  =  0 ; 

b  i  t  p  t  r  =  2  ; 

while  ((c  =  nextchar(  ))  !=  0) 

t extbuf  En  +  +  ]  =  c  ; 
p  r  i  n  t  f  (  "  2  .  Font  Descript ion:\n"); 
pblnkl n (3)  ; 

for(i=0;  i<n;  i  +  -t- )  putcnar(textbuf  (i  1  )J 
pblnkl n(  1 ) ; 
pytes(576  -  b )  ; 


char  nextchar(  )  {//get  next  char  in  ascii  description 


char  t  emp  ? 

i  n  t  i  /  j  / 

t  ennp  =&  0  } 

f  o  r ( i  =  0  ;  i  <  7 ;  iff)     < 

i  f  (bi  tpt  r  ==  2    &&  bleft  = 
d  =  hbuf; 
READ(fp,hbuf ,6)  ; 
bvtc  =+  6.  ; 
bleft  =  6 ; 
b  =+  b; 
} 
switch  (b  i  tpt  r  )     { 


=  0) 


case 

2: 

t  emp 

= 

t  emp 

C*d 

& 

040) 

>>  5; 

break 

case 

3: 

t  emp 

r 

t  emp 

(*d 

& 

020) 

>>  4; 

break 

case 

a: 

t  emp 

= 

t  ennD 

(  *d 

& 

010) 

>>  3; 

break 

case 

5: 

t  emp 

5 

t  emo 

(  *d 

& 

004) 

>>  2; 

break 

case 

6: 

t  emp 

— 

t  emp 

(*d 

R 

002) 

>>  l  ; 

break 

case 

7: 

t  emp 

- 

t  emp 

(  *d 

I 

0  01); 

break 

r 

default:  printf("bitptr=  %d\n",bitptr); 
e  x  i  t  (  )  ; 


} 

if  (i<6)  temo  =<<   l; 

if  (++Ditotr  >  7  !I  (bleft  ==  1  &&  (bitPtr-1)  = 

b  i  t  p  t  r  =  2  ; 

bleft  = -  1  ; 

d  +  + ; 
} 


=  6)  )    { 


re t  urn (  t  emp   )  ; 


chardefsC  )  {//process  one  character  definition 

char  i , oc  r tpr 1 1 1 1  rf t ; 

int  de f c » drc / rw / r k  ; 
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} 


READ( 
tp  = 
READ( 
rw  = 
READC 
byte 
oc  = 
UK  pr 
if  C 
el  se 
OK  pr 
OK  ob 
def  c 
i  f  (d 

OK 
OK 
by 
re 
} 

OK  pr 
rw  = 
//rw 
if  (r 
OK  pr 
OK  pb 
READ( 
1  =  ( 
REAOC 
1  =  1 
READC 
rft  = 
byte 
OK  pr 
rk  = 
//a)   1 
if  (r 


f  p ,  &  t  p ,  l ) ; 
tp   <<   3; 

f p / &OC  t  1  )  / 


tp 


(  (oc    &    070)    >>    3) ; 


f  p  r  &  t ,  l ) ; 

=+   3.; 

(oc   <<  6)    !    t; 

intfCOcta)     cocie=  "  )  ; 

oc<8     )     OK    orint  f  ("00")  ,* 

i  f  (  oc<6a  )  OK  putchar ( '0' ) ? 

int f ("%o"f oc) ; 

1  n  k  (  1  6  )  7 

-    qethw(  ) -2 ; 

efc  <  =  0)  {//stoo  Here*  there  is 

print f("NOMPRlNTABLE\n"  ); 

pbl nk 1 n(2) ; 
t  e  s  (  6  )  ; 
turn? 


no  oicture 


intf(" Character  width= 
( rw  ==  0 )  ?  c  ha  rw  (oc 1 


%d\n",  charw  (oc)  )  ; 
rw ; 


!=  cm  ->  better  be  kerning 


=  charw  (oc))  raf  +  +  ? 


%d",rw) ; 


3); 


%d\n",  1); 


OK 
i  f 

OK 
OK 


or 
(r 
ob 
o  r 


drc  = 
OK  or 
OK  ob 
OK  pr 
/  /now 
rast  r 
OK  pb 


intf(" Raster  width= 
1  n  k  (  1  5  )  ; 

f  p  f  8,  l ,  i ) ; 
l  <<  3); 
fpf&rftfl); 

J  (  (rf t  &  070)  >> 

f  p ,  &  t ,  l ) ; 

(  rf t  <<  6  )  !  t ; 

=♦  3.; 

intfC'Left  kern: 

rw  -  (charw  [oc 1  +  1  ) r 

dimensions    better     jive 
k    <    0)    OK    print f ("FILERROR    -    "); 
intfC'Riaht     kern=  %d"/rk); 

k     ! !     1 )     1 kf ++; 
lnk( 17) ; 
intf("Rows     from     too=       % d \ n M ,     rft); 

ge t  h w (  ) ; 
intf ("Data  row  count=   % d " /  drc); 
1  n  k  (  1  6  )  ; 
intf("defc=  %c\n " , de f c ) ; 

walk  thru  picture  definition 
ln(defc»drc/rw); 
1  n  k  1  n  (  2  )  ; 


rast  rl n(defc>arc t  rw) 

int  defc/drcrrw;  (//process  char  picture  definition 

int  i  »  )  >  1  f num rw / m ; 

char  t ; 

int  b  u  f  ( 9  0  J  ; 

i  nt  pbuf  [270]  ; 
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} 


int  *D/*q»*n? 
UK  Dbl nkl n(  1  )  ; 

//how  many  PDP-10  bytes  per  raster  line? 
1  =  ((rw-l)/36  +  1)*6; 

//how  many  raster  lines  each  6  bytes? 
m  =  (1  ==  6)  ?  3b/rw  :  1  ; 
while(drc)  {//while  data  rows  are  left 
o  =  b  u  f } 

f  o  r  t  i  =  0  ;  i  <  1  ;  i  +  +  )     { 
REAOCfpf&tfl); 
byte  =  +  1  . ; 

*p  +  +  =  ( ( t  &  070)  >>  3)  ; 
*p++  =  (t  *  0  7); 
} 

q    -    n    -    obu  f  / 
o  =  buf; 
f  o  r ( i =  0 ;  \     <  2*1;  i  +  +  )     { 

*  a  +  t  =  f  ( p  )  ; 

*  a  t  +  =  s  (  p  )  ; 

*Q  +  f   =  t  d ( p + + ) ; 

> 

numrw  =  (drc  <  m )  ?  drc  :  m ? 
for(i=0;  i  <  numrw;  i+  +  )      ( 
f  o  r  ( j  =  0  ;  j  <  r  w ;  j  +  + ) 
OK  1 i  s t ( n  +  +  )  / 

OK  print f("\n")  ; 
> 
drc  =-  num  rw ; 

defc  =-  1/6; 
> 

//trash  any  extraneous  bytes 
bytes(defc*6) ; 


1 i  st (n) 

int  *n;  {//use  f (o ) , s ( d ) ,  t d ( p  )  to  list  picture 

if  ( *  n  =  =  0  )   p  r  i  n t  f ( "  "  )  , 

else   printfC'l"); 
} 


int  f (p) 

i  nt  *p;     { 
switch  ( *  o ) 


{ 


case  0:  case  1 :  case  2:    case  3 : 
return ( 0  )  ; 

case  4:  case  5:  case  6:  case  7: 

ret  u  rn  (  1  )  ; 
default:   pr i nt f ( "he  1 o" ) ; 


> 

int  s  Co) 
int  *o ; 
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switch  ( *p ) 


{ 


} 


case  0:  case  1:  case  4:  case  5 
return(O); 

case  2:  case  3:  case  6:  case  7 

re t  urn (  1  )  ; 
default:   or i nt f ( "he  1 d  1  "  )  ; 


i  nt  td(p) 

i  nt  *p;     { 
switch  ( *p) 


{ 


case  0:  case  2:  case  4:  case  6 
ret  urn ( 0  )  ; 

case  1:  case  3:  case  5:  case  7 
re t  urn  (  1  )  ; 

default:   pr i nt f ( "he 1 p2"  )  ; 


9a 


TRANSFILE 


12  May  1^77 


TRANSFILE 


DESCRIPTION 


transfile  <sf>  <nf>   <sf>  <nf>  ...  <sf>  <nf> 


Transfile  takes  Dai rs  of  arguments.  It  transforms  the 
first  argument  of  a  pair,  a  Stanford  font  file,  to  a 
font  file  of  the  NPS  format  with  the  name  of  the  second 
argument  of  the  pair.  Transfile  exits  if  given  an  odd 
number  of  arguments  or  a  nonexistent  file.  Transfile 
detects  and  corrects  dimensioning  errors/  removes  unused 
bytes,  and  displays  the  transformed  file's  size  before 
orecedina  to  t^e  next  pair  of  arguments  or  exiting. 


FILES 


<sf>  must  be  a  Stanford  formatted  file. 

<nf>  will  be  shortened  to  length  zero  if  it  already   ex- 
ists. 
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TRANSFILE 


TRANSFILE 


TRANSFILE 


^define  READWRITE  00666  //access  mode  for  transformed  file 

int  f pr  >  f pw ; 

int  not  used   0 ; 

char  *bytc?  //byte  counter 

i  nt  dead? 

char  ibuf [256] ; 

char  t b u f 1 2 5 1  ; 

char  Dbuf  1251  ; 

i  nt  obuf  t25o]  ; 

int  big*  bike; 

int  flag? 

int  c ha rwpt r  [256]  ; 

Char  *d; 

int  bitptr; 

char  textbuf  U80]  ; 

char  *d; 

int  g^blef t ; 

/ *  transform  font  files  from  the  Stanford  format  to 
the  NPS  format;  correct  errors  as  detected      * / 

ma  i  n ( a  rgc  $  a rqv  ) 
int  a  rgc ; 
char  *  *a  rqv ;      < 
int  i  / k »  j  i     f  i  1 e  p  t  r ; 
putchar('\n'); 

printf ("\nTransform  files  by  pair...\n"); 
print f ("FILES:   "); 

f or ( i =1 ; i <argc ; i ++)  printf("%s  ",arqv(i]); 
putcharC'Vn1); 
f  i  1 ept  r  =  1  ; 
if  ((arqc  — )%2  1=  1) 

opintf (Incorrect  number  of  arguments\nM); 

/*  by  pai  rs»  transfor-n  the  1st  arqument  (Stanford  file) 

to  the  2nd  a rqumen t ( NPS  file) 

..continue  until  oairs  of  args  are    exhausted  */ 


else  while  (a  rgc )   { 

big  =  0;  byte  =  0;  bike  =  0 ; 

if  (cmor ( (o  =  argv  [f i  1 ept rl  ) ,  (d  =  "signl  la"  )  )  )  big 

//set  'big'  for  the  bia  file 

fpr  =  ooen ( a rgv  (  f i  1 eot r  + +  ]  /  0  )  ; 

fpw  =  creat (argv  If ileptrft] , READWRITE) ; 

for(i=0;  i  <  256;  i++) 

obuf  [i ]  =  0; 
wr i t e ( f pw, obu f , 5 1 2  )  ;  //write  blank  hdr  table 
bump(512);  //set  the  byte  counter 
f  o  r ( i  =  0  ;  i  <  25b;  i++)     { 

charwptr[il  =  getvalC  ); 

if  (charwotrli]  ==  0)  notused  =+  1; 
> 


=  1  ; 


96 


k  i 11 ( 9 )  ; 
k  i  1  1  (  3  )  ; 
k  i  1  1  (  3 ) ; 
kill (168) 
f ontbl k ( 
k  =  0; 
f  o  p  ( j  =  0 ;  t 


fori 

k 

//wr 

for( 

P 
w 
b 
> 

writ 

bump 

put  C 

dead 

//pp 

fort 

c 

//go 

seek 

for( 

o 

//wr 

writ 

/*  c 

a 

r 

C  1  OS 
C  1  OS 

i  f  (b 


i  =  j ;  ( 
+  +  ; 

i  t  e  a 

i  =  0 ;  t 
ut  cha 
r  i  t  e  ( 
umo  (  1 

e(fpw 

ci); 

har(  ' 
=  12 
oces  s 
i=o; 
ha  rde 
bac  k 
(fpw; 
i=0; 
buf  ti 
i  t  e  o 
e  (  f  pw 
1  ose 
gree 
emen  t 
e  (  f  pr 
e  (  f  pw 
iqlpr 


dead  =  put  save (  )  ; 
dead  =  du t  save (  )  ; 
dead  =  put  save (  )  ? 

);  //get  ascii  description 

extbuflj]  '=  ' \0';j++) 

r 

textbuf ti 1 =apav  If i 1 ept r-1 1  [k]  )  i 


\  0  '  ;  i  +  +  ) 


sci l  desc  r  i  ot  i  on 
extbuf  til  I  =  '\0 • ; i  +  +  ) 
rttextbuf  til  )  ; 
fow/8,textbufti)rl); 

); 

/8-textbuftil,!); 


( 


Ch 

< 

( 

to 

,0 

< 

t 

ob 
i  1 

i  t 
th 


); 

not 
ars 

dea 
); 

hea 
)  ; 

256 

cha 
t  he 
uf  ,5 
es , 
h  a 
e  ar 


used/2; 
in  font 
a ;     i  +  +  ) 

d  of  file 

;  i  +  +  ) 

rwpt  r  [  i ]  ; 

hd r  table 

12); 

wpite  out  byte  count  (this  should 

'Is  -1'  on  transformed  file)/  dec- 

gument  counter  by  a  pai  r  (2)      * / 


)  ; 
)  ; 
i  nt 


fC'Size  of  %s %d  blocks  +  %o  bytesW , 

argvtfileptP-U /blkCrbytc); 
else  printf("Size  of  % s • • • %  d  bytes\n",argv  tf i leptr-11  / 
byte); 
)  ;  c  u  t  c  h  a  r  (  '  \  n  '  )  ; 


out cha  p ( ' 
argc  =- 


) 


i  n t  cmop (p 1 , o2  ) 

char  *pl/*p2;  {  //rtn  1  if  1d=p2,  0  otherwise 

fop(  ;  ;  )    { 

if(*ol  1=  *p2++)return(0); 
i  f  (*pl++  ==  '\0  ■  )  peturnt 1 ) ; 
> 

> 


bump  (  i  ) 

int  i;  t  //bump  blk/byte 
i  f  (big)     t 

i  f  (bytc  +  i  >=  512) 


count  s  by 

{ 


as  peau  i  red 
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i  f  (bl kc  <  255)     { 
bl kc++? 

byte  =  (bytc+i )%512; 
} 
el se  if  (bytc+i  >  65535)   < 

printfC" file  too  big")?  exitO; 
} 

else  byte  =+  i  ; 
} 

else  byte  =+  i  ; 
) 
else  oytc  =+  i  ; 


} 


int  getval (  )  {  //3  bytes  to  2 
read ( f p r , i  bu  f / 3 ) ; 

obuftO]  =  ((  ibuf  [01  8.  017)  <<  12)  ! 
( (  ibuf  til  &  077)  <<  b)   ! 
(   ibuf  12 J  &  077)  ; 
return (obuf  t0)  )  ; 
> 

int  outsave(  )  {     //3  to  2  and  write  them 
read (fpr,ibuf>3); 

obuftO]  =  ((  ibuflQl  K    017)  <<  12)  ! 
( (  ibuf  [11  &  077)  <<  6)   ! 
(  ibuf  C2)  &  077); 
w r  i  t  e ( f pw  t obu  f  t  2  )  ? 
Pump ( 2  )  ; 

return (obu  f  1 0  J  ) ; 
} 

ki 1 1  (x  ) 

int  x;  {  //trash  x  bytes 

read (fpr, i  bu  f  >  x  )  ; 
} 


int  worcic(  )  {  /  /  r  t  n  the  number  of  6  bvte  words 

//to  the  character  oicture 


read ( f dt , i  bu  f  r  3  )  ; 

obuf  [0J  =  ( (  ibuf  (01 
( (  ibuf  fll 
(  ibuU2] 

obuf  (01  =-  2; 

return (obuf  (01  )  ; 


8.  017) 

*.    077) 

0  7  7); 


<< 
<< 


12) 
6) 


int  retrw(){  //qet  rw/  write  rw,  cmor  rw  to  cw 

//if  rw  i=  cw»  set  flaq  to  check  Ik 
f 1 aa  =  0; 
read(fpr,ibuf*3); 

obuftO]     =     ( (ibuf  (01 &077)     <<    3)     I     ((ibuftl)     &    070)    >>    3); 
obuUU     =     ((     ibufd]     K.07)     <<    6)     !     (     ibuf(21     &    077); 
obuf(01     =     (obuf(O)     ==    0)     ?    charwpt r  [2*obuf  fU  1      :     obuftO]; 
Charwptr(2*obuf(ll     +     1]     =    byte; 
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} 


if  (big)  charwpt r (2*obuf  [1] 1  =!  (bike  <<  8); 

if  (obuflO]  i=  (charwot r  (2*obuf  (  1] ]  &  0377))  flag++; 

wri  te(fpw*obuf»2) ; 

bumo ( 2) 7 

return (obuf  CO]  )  ; 


s  p li  t  (  )  {  //getf  write  out  Ik  and  rft 

i  n  t  t  ; 

read ( f pr t  \ buf  r 3) } 

obuftOJ  =  ( (ibuf  10] &077)  <<  3)  ! 

obuf  C1J  =  ( (  ibuf  [11  8,  07)  <<  6) 

//correct  any  errors 

if  ( i  f 1 ag)  obuf  CO]  =0; 

wri  te(fpwrObuf»4) ; 

bumo (a)  ; 
} 

char  next ( x ) 

int  x;  i     //rtn  value  of  next  x  bits  to  oak 
char  t  emp ; 
int  i  ; 
t  emo  =  &  0 ; 

for(i=0;  i  <  x;  i++)     { 
switch  (bitptr)     { 


(  (  ibuf  til  8,070)  >>  3)  ; 
!  (  ibuf  [23  &  077)  ; 


case 
case 
case 
case 
case 
case 
case 
case 


def aul t 


t  emp 

t  emD 

t  emp 
t  emp 
t  emp 
t  emp 
t  emp 
t  emp 


t  emp 
t  emp 
t  emp 
t  emp 
t  emp 
t  emp 
t  emp 
t  emp 


*p  S,  0200)  >>  7;  break 

*p  8,  0100)  >>  6;  break 

*p  8,  040)  >>  5;  break 

*P  &  020)  >>  4;  break 

*p  &  010)  >>  3;  break 

*  o  8.  004)  >>  2;  break 

*p  &  002)  >>  l;  break 

*p  %  001  )  ;  break; 


p  r  i  n  t  f ( " b  i  t  p  t  r  =  %d\n " t b  i  t  pt  r ) ; 
e  x  i  t  (  )  ; 


> 


) 

if  (  (i  +  1)  1=  x  )  temp  =<<  1  ; 
i  f  (  +  +bi  tpt  r  >  7  )     { 
b  i  t  p  t  r  =  0  ; 
p  +  +  ; 
> 
} 

if  ( i  <  6)  temp  =<<  (8  -  i  )  ; 
retum(  temp  &  000377  )  ; 


pak(x) 

int  x;  {  //Dak  1  raster  line  info  int  array 

int  i  ; 

for(i=0;  i  <  25;  i++) 

pbu-f  ti  ]  =  &  o; 
i  =  o; 
while  (x)     { 
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pbufti++]  =  next(  (x  >=  8)  ?  8  :  x); 

x  =  (x  >=  8)  ?  x-8  :  o; 


} 


comprs ( x ) 

int  x;  {  //c^os  int  array  into  bits 

i  nt  k  ,  b  i  t  s  1  ; 

char  *i/*t; 

t  =  tbuf;  i  =  ibuf; 

f  or(k  =  U;  k<25;  k  +  + )   *t  +  +  =  &  0; 

t  =  tbuf; 

b  i  t  s  I  =  8  ; 

wh  i 1 e  (  x  )     { 

swi  tch  (bi  t sl  )     { 

case  2:     *t  =  *t  !  (*i  &  06  0)  >>  4; 

t  +  +  ; 

*t  =  *t  !  ( *  i  +  +  I   017)  <<  a; 

x  -  - ;  b  i  t  s  l  =  4 ; 

b  reak  ; 

case  4 :  *  t  =  *  t  !  ( * i  i  07a)  >>  2  ; 
t  +  +  ; 

*  t  =  *  t  !  (  *  i  +  +  &  003)  <<  b; 

x--;  bi  t  s  1  =  6; 

break  ; 

case  6:  *  t  =  *  t  !  (  *  i  +  +  &  077); 
t  +  ♦  ; 
x  -  - ;  b  i  t  s  i  =  8 ; 

break ; 

case  8:  *t  =  *t  !  (*i++  &  077)  <<  2) 
x-- ;  bi  t  s 1  =  2 ; 

break; 

default:  pr i n t f ( "b i t s 1 =  %d\n " , b i t s 1  )  ; 
e  x  i  t  (  )  ; 


> 


chardef (  )   //process  one  char  definition 
int  i  ; 

int  rwl      //raster  width 
int  count;   //#  wds  in  definition 
int  rwpe rwd ; // ras t e r  lines  Der  word 
rw  =  ret  rw  (  )  ; 
count  =  wordc (  ) ; 
sol  i  t (  )  ; 
drc  =  put  save (  )  ; 
while  (drc)  {  //while  data  rows  are  left 

p  =  tbuf ; 
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bi 
i  f 


> 

el 


t  p  t  r  =  0  ; 
(  p  w  >  3  to  )     { 

peadCfpp, ibuf , (pw/36  +  1)*6); 
comprs ( ( pw/36  +  l)*to); 

pak(rw); 

wri te( fnw,Dbuf , (rw%8  ==  0)  ?  rw/8 

bump(  (pw%8  ==  0)  ?  pw/8  :  pw/8  + 

dpc  =-  i; 

count  =-  pw/36  +  1  ; 


se     { 

read ( f pr ,  i  bu  f  >  6 )  ; 

compps  (6 )  ; 

rwperwd  =  (drc  <  36/rw)  ?  dpc 

for(i=0;  i  <  rwDerwd;  i+  +  ) 
oak ( pw  )  ; 

wpite(fpw,pbuf>(pw%8  ==  0) 
bump(  (rw%8  ==  0)  ?  rw/8  : 

> 

drc  =-  rwpe  rwd ; 

count  = -  1  ; 


pw/< 

); 


l); 


3  6  /  p  w ; 


( 


?  rw/8 
pw/8  ♦ 


rw/8 

); 


l ); 


> 
} 

//tra 
ki  1  1  ( 


sh  e x  t  raneous 
count  *6 ) ; 


byt 


> 


fontblk(  )   {  //get  ascii  description 
i  n  t  i  t  n  ; 

n  =  bl eft   =  0; 
g  =  o; 
Di  tot  p  =  2; 
'while  ((textbuf  (n  +  H  =  nextcharC  ))  1  = 


•\0'  ) 


k  ill  ( 5  7  to  -  g ) ; 


> 


chap  nextchar(  )  {  //get  next  ascii  chap  of  descrip 
chap  t  emp ; 
i  n  t  i  /  j  ; 
temp  =&  0; 
f  o  p  ( i  =  0  ;  i  <  7  ;  i  ♦  +  )     { 

if  (bitptp  ==  2  %%    bleft  ==  0)     { 
d  =  ibuf; 
pead(fpr,ibuf/to); 
bleft  =  to ; 
g  =+  6; 
} 
switch  (bitptp)     { 


case 

2: 

t  emo 

=  t  emp 

(  *a 

& 

040) 

case 

3: 

t  emo 

=  temp 

(*d 

* 

020) 

case 

a: 

t  emp 

=  t  emo 

(  *d 

& 

010) 

case 

5: 

t  emp 

=  t  emo 

(  *d 

& 

004) 

case 

to: 

t  emo 

=  temp 

(  *d 

& 

002) 

>>  5;  break 

>>  4;  break 

>>  3;  break 

>>  2;  break 

>  >  1  ;  break 
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case  7:  temp  =  temp  !  (*d  &  001);  break; 
default:  print f("bi tpt r=  %d\n"  ,  b  i  t  ot  r  )  ', 
ex  i  t  (  )  ; 


if  (  i  <6)  temp  =<< 

i  f  ( +  +  bi  tpt  r  >  7  ! 
b  i  t  p  t  r  =  2  ; 
b  1  e  f  t  =  -  1  ; 
d  +  +  ; 


1 


(bleft  ==  1  1%,    (bitDtr-1)  ==  6))  { 


} 

ret  urn (  t  emo   ) ; 
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DESCRIPTION 


12  May  1977 


EDF 


edf  [-]  [<Hfn>]  !  [-]  [<Hfn>]  [<num>]  J  [<fn>3 


Edf  is  an  interactive  font  e 
oabilitv  of  creating  and  mai 
arguments/  Edf  enters  a  crea 
given  is  assumeo  to  be 
file/  otherwise/  a  leading  " 
vector  formatted  font  file  t 
digitized  form  before  the  ed 
If  a  point  size  is  not  so 
argument/  a  vector  formatted 
10  point  size.  The  term  "cu 
oo inter  to  any  character  pos 
acter  denoted  by  cc  may  or 
buffer  at  any  specified  time 
gives  a  complete  cescriot ion 
ly/  the  available  commands  a 


di  tor 
n  t  a  i  n 
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the  n 
-"  in 
hat  r 
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i  t  i  ze 

<Hf  n 
ers  i  o 
y  pr 
i  ona  1 
i  t  i  ze 
(cc) 

The 
e  c  ha 
1  [Re 
se . 


he  ca- 
ven  no 
e  /  if 
d  font 
>  i  s  a 
n  t  o  a 
oceed . 

third 
data 
is  t  ne 

C  har- 
rac  t  er 
f .  71 
Bri  ef- 


<numOer>   set  cc  to  <number> 


+  :- 


i nc remen t  !  dec remen t  cc 

add  a  character  to  the  font  at  the  cc 


c  s  e      change  lines  s  through  e  of  the  character  at 
CC/  prompting  for  each  line 

d  s  e      delete  characters  s  through  e  from  the  font 

e  s  e      edit  lines  s  through  e  of  the  character  at 
CC/  oromptino  for  each  line 

f  turn  on/off  a  switch  displaying  dimensions 

of  the  character  at  cc 

i  s  e  fn   include  characters  s  through  e  from  font  fn 
fn  must  be  compatible;  remembers  fn 

1  s  e      list  lines  s  throuah  e  of  the  character 
at  cc 


D 


display  the  font  decription  and  a  table 
reflecting  the  edit  status  of  every  character 
in  the  font 

enter  an  interactive  moaule  to  change  any 
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EDF 


font/character  dimension  or  font  description 

EDF  EDF 


si  s  e 

r 
u 
d 

w  in 

< rubout > 
<break> 


quit*  warn  if  changes  have  been  made  but  not 
written  out 

shift  lines  s  through  e  of  the  character  at  cc 
left*  right  f  up/  or  down  one  pixel  and  list 
1  i  nes  s  t  h  rouqh  e 


write  out  font  to  fn>  then  quit 

kill  any  command  being  executed  without 
exiting  the  program 


Edf  promots  with  the  octal  value  of  cc  followeo  by  a  "> 


and   gues  t ions 


•i  «p  ii 


any   illegal  commands.   Commands  to 


change  cc  may  be  preoendea  to  any  other  commana,  and  the 
effect  is  to  change  cc  and  then  execute  the  command. 
Additionally  "f"  may  be  preoended  to  any  command. 
Numbers  may  be  in  decimal  or  octal  (leading  0). 


FILES 


<fn>    may    be     a      full     pathname? 
"/. font s .0 1 /font /"    is    orepended   to   it 
Hershev  fonts  are       placed   in   a   temporary 
"/. fonts. 01/HFONT". 


o t  he  rw i se / 

Digitized 

file   named 


loa 


EDF 


EDF 


EDF 


^define  error  return(l); 


int  readfp»  w  r  i  t  e  f  d  ; 

int  DtsizeJ 

int  pi  d; 

int  f  reenode i 

int  infont* 

int  wr  f 1 ag ; 


int  w  r ; 

int  max ; 

int  h  t  >  max  w  ,  1  h  t  / 

int  bike?  char  *  b  y  t  c  ; 

int  edit; 

int  delete? 

int  t  h  1 1  t  m  a  x  w  ,  t  1  h  t  ; 

int  dim; 

int  i  nc 1 ude ; 

int  rw»  Ik,  rft; 

int  b  o  t  ,  bytes,  drc; 

int  s ,  e ; 

int  in; 

int  c  ,  peekc  ? 

int  first,  last; 

int  C  hmod ; 

int  *  n  ,' 

i  nt  sqt  t  y  13]  ; 
i  nt  savet  t  y ; 
int  on  i  n  t  r  (  )  ; 
int  *c  h  arde f ,  *d ; 
char  cstat; 
char  aeslfcOj; 
Char  i  buf  t  lb]  ', 
char  tbuf  [4  0001; 
i  nt  hdr  (256]  ; 
int  f hdr  [256]  ; 
st  rue  t  node     { 

i  nt  code ; 

char  *def; 

int  ns  i  ze ; 

char  stat; 

st  rue  t  node  *nex  t ; 
>   1  1 ist  (1291  ; 
st  rue  t  noae  *head ; 
struct  node  *  a  v  a  i  1 ; 
struct  node  *current? 


// f  i 1 e  desc  riotors 
//Hershey  font  point  siz 
//Chi  Id  proc  ess  id 
//ptr  to  next  free  node 
//current  character 
//initially,  0.  increrren 
//any  chanqe  to  flag  a  q 
//writing 

//flag  to  turn  off  displ 
//diagnostics  during  fil 
//32b77  used  to  denote  b 
//font  dimensions 
//block, byte  counters 
//set  to  I  when  in  edit 
//flag  in  checking  for  e 
//temp  font  dimensions 
//char  dim  diplay  contro 
//flag  preventing  access 
//during  an  include  comm 
//character  dimensions 
/  / 

//command  arquments 
//l  if  current  character 
//in  character  buffer,  0 
//characters  on  the  comm 
//line  ptrs  in  character 
//l  if  char  in   buffer  w 
//integer  do  inter 
//0,  otherwise 
//buf  f er  for  gt ty (II ) 
//terminal  status 
//address  of  interrupt 
//character  pointers 
//holds  status  of  char 
//holds  font  description 
//buffer  for  read(II) 
// char  act  er    buffer 
//hdr  table  of  edited/cr 
//temp  hdr  table  during 
//a  node  holds  info  on  a 
//character  stored  on  th 
//character  code 
//otr  to  char  definition 
//size  of  new  definition 
//status  of  modification 
//otr     to  next  node  in  11 


in  1  1  i  s t 

t  ed  on 

u  i  t  without 

ay  i  ng  of 
e  w  r  i  t  i  ng 
ase  node 


mode 

mpty  fontfiles 

1  switch 

to  1 1  i  st 
and 


definition  is 

o t  he  rw  i  se 
and  1 i  ne 

buffer 
as  modi  f  i  ed 


t  rap 


in  char  buffer 


ea t  ed  font 
an  i  nc 1 ude 

single 
e  1  1  i  st 


i  st 


//otr    to  head  of  llist 
//otr  to  next  free    node 
//otr    to  node  found  in  FIND 
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struct  node  *insert();//node  returned  by  INSERT 
char  r f ont f i  1 e  (40]  ;    //fontfile  being  included  from 
char  wf ont f i 1 e  [401  ;    //file  being  written  to 
char  sfontfi  le  [4  0]  {"/.  font s  .  0  1  / font /">  ; 

//pathname  header  of  fontfile  to 

//be  edited 
char  hf si ze  [5]  {"  10"}  ;  //default  pt  size  for  Hershey  font 


ma  i  n 
i 
i 
i 


(a  rgc , a  rgv ) 

nt  argc;  char  **argv?     { 
nt  i  ; 

f  (argc  >  1)  { //a rgument s->ed i t  mode 
if  CargvCUCO]  ==  '-')  {//digitize  Hershey 
if  (argc  ==  3)  {//check  any  point  size 
if  ((ptsize  =  atoiCargvIZl))  >  42) 
printf(" point  size  exceeds  42"); 
e  x  i  t  (  )  ; 
} 

o  =  h  f  s  i  ze  » 
for ( i =0; (*p  +  t  =  apqv[2]  (il)  1=  '\0' 


font 
{ 


) 

el 

} 
e  1  s 


> 
di  t 


;  i  +  +  )  ; 


id  =  f  o  r  k ( )  ; 
f  (  pid  is  0  ) 

while  (  pid  !=  wa  i  t  (  )  )  ? 
1 se   //create  process  to  digitize  Hershey  font 

execl  ("makehf ", "makehf ",argv til  ,  hf si  ze,0)  ; 
readfp  =  open ("/. font s . 0 1/HFONT %  0) ; 

se  if  (  argvUMO]  ==  '/•  )  {//full  pathname 
readfp  =  ooen ( a rgv  (  1  ]  ,  0  )  ; 

e       { 

p    =    a  r  q  v  [  I  ]  ; 

for(i=lb;(sfcntfile[i]     =    *  o  +  +  )     1=     ' \ 0 • ; i  +  + ) ; 

readfp  =  ooen ( s f on t f i 1 e t  0 ) ; 


=  1  ; 


ni  t  (  )  ; 

i  gna 1  (2,onintr); 

hi  le  (  1  )      { 
set  ex  i  t  (  )  ; 
ori  nt  f  ( "\n%3o> 
peekc  =  (peekc 
i  f  ( command ( ) ) 


//set  interrupt  trap 


"  /  i  n  f  o  n  t  )  ; 

==  '\n' )  ?  0  :  oeekc; 
{ 

P  r  i  n  t  f  (  "  ?  \  n  "  )  ; 
if  (peeKC  1=  '\n')  wh i 1 e ( ( c =ge t c ( ) ) 


i=  »\n') 


} 


ini  t  ()    { 
\  n  t  i  ; 

if  (edit)     { 
if  (reacfp  > 


0)  fonthdrO; 
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e  1  se 

pr  i 
ex  i 

> 
> 

else  { //c 
zhdr (h 
pr  i  nt  f 
wh  i  1  e  ( 
Dee 
pr  i  nt  f 
peekc 
pr i  nt  f 
wh  i 1 e ( 
pee 
pr  i  nt  f 
peekc 
or  i  n t  f 
w  h  i  1  e  ( 
pee 
pr  i  nt  f 
peekc 
pr  i  nt  f 
orint f 
get  nam 
> 

max  =  326 
head->cod 
head->nex 
i  nc 1 ude  = 
infont  = 
head  =  1 1 


{ 

ntfCfontfile  not  foundW); 

to; 


reat 
dr)  ; 
("\n 
(ht  = 
kc  = 
("  % 

=  o; 

("ma 
( max 
kc  = 
("  % 

=  0; 
("lo 
(  1  ht 
kc  = 
C"  % 
-   o; 

(HTy 
(M  f 
e  ( de 


e  mode 


"); 


f on  t  he  i  ah  t  ? 

getnum  C) )  <  0  J  J  ht  > 

0;  printfC" height  ? 
d  1  \  n  "  ,  h  t  )  ; 


120) 

"); 


ximum  character  width  ? 
w=petnumC))  <  0  !!  maxw 

0;  ori nt f ("Maxwi dt h  ? 
d  !\n",maxw); 


M); 

>  256) 

"  ); 


gical  heiqht  above  baseline  ?   "); 
=aetnum( ))<0!!lht>ht)     { 

0  ;  p  r  i  n  t  f  (  "  1  h  t  ?   "  )  ;      > 
d  i  \  n  "  ,  1  h  t  )  ; 

pe  in  any  one-line")? 

ont  descriDt ion,  if  desi  red. \n"); 

s); 


77;  wrflag  =  0; 

=  o; 


} 


e  =  ma  x ; 

t  =  0;  chrrod 

1  ?  f  reenode  =  1 ; 
0 ;  w  r  =  1  ; 
ist;  avail  =  &  1 1 i  9 1  [  1 1  ? 


zhdr(h)   //zero  a  hdr  table 

int  hll;      { 

regi  ster  int  i ; 

n  =  h; 

f or( i =0; i <256; i ++ )  *n++; 
> 

int  getcC)  {//return  next  char  in  command  line 
i  f  (peekc )     { 

c  =  peekc ; 

Deekc  =  0 ; 
} 
else    { 

c  =  getcharO; 

if  (c  i=  '  ' )  ceekc  =  c; 
> 

return(c) ; 
} 

fonthdrO  {//read  hdr  table  and  font  dimensions 
int  i  J  char  t  J 
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read  ( readf d / hdr / 5 1 2 ) ; 

read(readfp^ht^); 

print f ("\nHeight  %o   %ht); 

if  (ht  >  120  ! !  ht  <  0)     { 

pr  intf  ("too  high");  exitO;  } 
read(  readfp^maxw/2)  ; 
print f ("Maximum  character  width 
if(maxw  >  25b  !!  maxw  <  0)     { 

pr intf ("too  wide");  exit();> 
read(  readfpf&l  ht  ,2)  ', 
print f ("Logical  height  %d\n",lht); 
i  f (1 ht  >  ht  !  !  1 ht  <  0)     { 

pp  intf  ("too  high");  exit  Of) 
seek (readfp, 518,0) ; 
p  =  des;  t  =  1  ; 
for(i=0;  t  !=  '  \0';i+  +  )     { 

read(readfo,&t,l); 

*  d  +  +  =  t  ; 
) 


%d   " / ma  x w  )  ; 


> 


int  getnumO  (//convert  numeric  string  and  Ptrn  value 
i  n  t  i  i  b  a  s  e  ; 
i  =  o; 

while((c  =  getcO)  ==  '  ') 
if  (c  >=  '0'  &&  c  <=  '9'D     K 
base  =  (c-'0'  )  ?  10  :  8; 
oeekc  =  c ; 

if  (base  ==  10)  wh  i  1  e  (  (c=ge  t  c  (  )  )  >='0'  *,&  c<='9«) 
peekc  =  0 ; 

i  =  i*base  ♦  c  -  '0'; 
} 

else  whi  le( (c=getc  ()  )  >='0'  &&  C<='7,J    { 
peekc  =  0 ; 

i  =  i*base  +  c  -  '0'; 
} 

oeekc  =  c ; 
ret  u  rn  (  i  )  ; 
} 

else(//there  was  no  numeric  strinq 
peekc  =  0; 

if  (C  ==  '  +  •)  return (-2); 
if  (C  ==  ' -' )  return(-3)  ; 
peekc  =  c;  //c  will  be  processed  later 
re t  urn ( -  1  )  ; 
} 
} 


int  commandO     ( 

/*  Process  the  command  line: 
upda t e  i  n  f on t 
check  command  arquments 
execute  command 
Any  oroblems  ?  return  a  l;  otherwise* 
reg ister  i , j ; 


return 


0  */ 
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int  tempf  k#  h,  hb/  lb; 
switch(temo  =  getnumC))     { 

case  -  2  :    //increment  infont 
i  f  (chmod)  putdef ( ) ; 
infont++J 

in  =  0 ;  c  hmoo  =  0 ; 
break ; 

case  -3:    //decrement  infont 
if  (chmod)  outdefO; 
infont--; 

in  =  0 ;  c  hmoo  =  0 ; 
break ; 

case  -1:  break;    //no  change 

default:    //infont  ge^s  temp 
i  f  (chmod)  putdef () ; 
infont  =  t  emp ; 
in  =  0 ;  c  hmoc  =  0 ; 
break; 


} 

if  (infont  <  0)  infont  =  12  7; 
if  (infont  >  127)  infont  =  0; 
whi  le(  (c  =  getcO  )  ==  '  '  ) 
switch  (c  )      { 


//check  for  wraparound 


case  'a':    //ado  a  character 

instrOi  c=getchar();  getdim();  p  =  tbuf; 

for(i=o;i<aooo;i+t)  *p++  =  o  ; 

bytes  =  (rw%8  ==  0)  ?  r  w  /  8  :  rw/8  +  1  ; 
in++;  wrflag++;  chmod++;  break; 

case  'c':    //chanae  lines  s  thru  e 
if  (gcharde f ( readf p ) )     { 
if  (setse(ht))  error; 
sbase ( ) ; 
for(i=s;  i  <  e;i++) 

for(j=first;  j  <  last+first;  j  +  +  ) 
tbuf  t  i  *bytes+  j  3  =  0 ; 
for(i=s;  i  <=  e  #  i  +  + )     < 
print f ("%3d  »ii)J 

for(j=first;  j  <  last  +  first ; j  +  + ) 
tbuf(i*bytes  +  jl  =  q  e  t  d  e  f  (  )  ; 
} 

in++;  cstat  =  ' m ' ; 
wrf laa+t;  chmod++; 
} 

else  error; 
break; 

case  'd':    //delete  char's  s  thru  e 
if  (setse(128))  error,* 
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c  s  t  a  t  =  '  d  '  ; 

for(infont=s;  infont<  =  e/' infont++)     { 

i f ( hdr  [  i n font *2]  =  =  0)  continue; 

hdr [inf ont*2)  =  0;  putdefC); 
} 
in  =  0;  wrflaq++;  break; 

case  'e':    //eait  lines  s  thru  e 
i f (gcharde f ( readf d) )     ( 
i f  (  se t se ( h t ) )  error; 
s  b  a  s  e  (  )  ; 

qtty(lfSgtty);  savetty  =  s  g  t 1  y  1 1 ) ; 
f  o  r ( i  =  s ;  i  <  =  e ;  i  +  +  )     < 
print f ("\n%3d  "  ,  i  )  ; 
sqttyll)  =!  03;  st  t  y  (  1  ,  sgt  t  y  )  ,* 
for(j  =  first;j<first-Hast;j+  +  ) 

1  i  st  (*'/.c%c%c%c%c%c%c%c"f  tbuf  (i  *bytes  + j  1  )  ; 
sqttyll)  =  savetty;  stty(l,sgtty); 
p  r  i  n  t  f  (  "  \  n     "  )  ; 
for(j=first;j<first+last;j++) 
tbufli*bytes+jl  =  getdef(); 
>  i  n  t  + ;  w  r  f 1  a  q  + 1 ;  chmod  +  +  ;  cstat  =  '  m  *  1 
)     else  error;  break; 

case  '  f  '  :    //switch  char  dimension  flag 
dim  = ( d  i  m )  ?  0  :  1  ; 
break; 


case  'i':   //include  char's  s  thru  e  from  rfontfile 
if  Csetse(128)3  error; 
getname(rfontfi le); 

ppendf  rfontfile»" /.fonts.Ol/font/"); 
i f ( (temp=open ( rf ont f i 1 er 0) ]  <  0)      { 

printf ("cannot  ocen  %s",rfontfile);  error; 
> 

coy(har^fhdr);  read(temp,hdr,5l2); 
read(temp,&tht , ? ) ;  read(temp,&tmaxw,2)  ; 
read( temp, &t 1 ht  r 2) / 
if  ( re  j  ec t  (  )  )     { 

ori nt f ( "compat i bl e  "); 

cpy ( f hdr , hdr ) ;  error; 
) 

in  =  i  nc 1 ude  =  0 ; 
cstat  = 
f 


w  r  =  0 ;  d  r  c  =  1  ; 


or(infont=s;  infont<=e;  infont++) 
if  (gcharoef ( t emo ) )  putdefC); 
else  if(drc  ==  0)  putdefC); 

1 ose ( t emp ) ;    wr    =    l ; 
or(i=0;i<s;i++)  { 

h  d  r  [  i  *  2  ]     =    f  h  d  r  [  i  *  2 1  ;     h  d  r [ i  *  2  +1 3 

or(i=e+i;i<126;i++)  { 

h  o  r  [  i  *  2  J     =     f  h  d  r  [  i  *  2 ]  ;     h  d  r  [  i  *  2  +  1] 


=     f  hdr  ti  *2+l]  ', 


=    fhdrti*2+U; 
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include  =  1?  wrf laa++;  break; 


case 


I1:    //list  lines  s  thru  e 


if  (qc harde f ( read f p ) )     { 
if  (  set  se ( h t ) )  error! 
sbase ( ) ; 

f  o  r ( i =  s ;  i  <=  e;i++)     { 
orint  f ("\n%3d  ", i  ) ; 
for(j=first;j  <  last  ♦  first;  j++) 

1 ist ("%c%c%c%c%c%c%c%c",tbuf ti  *bytes  + j]  )  ; 
} 

i  n  t  +  ; 
} 

else  error; 
break; 


case   n  : 


//display  font  description  and  table 


p  =  d  e  s  ; 

if(*D  ==  '\0')  DrintfC'no  desc  r  i  pt  i  on\n  "  )  ; 

else  for(i=0;*o  1=  '  \ 0 ' ;  i  +  +  ) 

put  char ( *p  +  +  ) ; 
putcharl ' \n ' ) ; 

printfC      0     1     2     3     4 "  }  ; 
printfC     5     6     7 "  )  ; 
for(i=0;  i  < 1 2  8 ; i  +  + )     { 
i  f (i%8  ==  0}     { 

if  (  i  =  =  0  )  o  p  i  n  t  f  (  "  V  n  0  0  0  "  )  ; 
else  if  (i  <  0 1 00 ) pr i n t f ( " \nU%o" , i ) ; 
el se  ori  nt  f ("\n%o" / i  ) ; 
} 
pstat ( i ) ; 
} 

pri nt f (  "\n\n  •  '  undefined   'X'  unmodified   "); 
print f(" ' I'  incluaed   "); 
printfC'D'  aeleted   ,M'  modified"); 
b  reaic ; 

case  'n':    //modify  font/char  dimensions 
instrf);  c  =  qetcharO? 
get  di  m ( ) ;  break ; 

case  'q':    //quit/  warn  if  not  written 
if  (wrflaq)     < 

wrf 1 aq  =  o; 

printf ("write??"); 

error; 
> 
exi  t  ()  ; 


case  's':    //shift  lines  s  thru  e  once 
i f ( qcharde f ( readf p ) )     i 
oeekc=0;  temo=qetc(); 
if  ( set  se ( h t ) )   error ; 
sbase ( ) ; 
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switch  ( t  emp ) 


{ 


case  ' r ' :    //right 
for(i=s;  i  <  =  e ;  i+t)     { 
lb  =  0; 

for(j=first;  j  <  first+last?  j  +  +  )     < 
hb  =  lb;  p  =  &tbufli*bytes+j]; 
if  (*d  &  01 )  lb  =  1 ;  el se  lb  =  0 ; 
*  p  =  >  >  1  ; 

if(hb)  *  o  =!  0  2  0  0  ;  e  1  s  e  *p  =&  0  17  7; 
) 
)    break ; 

case  ' 1 ' :    //left 
for(i=s;i<=e;i++)     i 
h b  =  0 ;  lb  =  o ; 

for(j=first+1ast-l;j>=first;j--)     { 
o  =  &tbuf[i*bytes+j3; 

if((*p&0200)>>7)  hb  =  l;  else  hb  =  0; 
*p  =<<  l;  if(lb)  *p  =!  01;  lb  =  hb; 
} 
>  break; 

case  ' u ' :    //up 
for(i=s;  i<=e;  i  ♦  +  )     i 
if(i  ==  0)  conti  nue ; 
for(j  =  first;  j < f i  rs t  +  1  as t ; j t  +  ) 

tbuf((i-l)*bytes+jl     =    tbufti*bytes+j]; 
} 


} 
for(j=first;  j<first+last;j++ 

tbuf  le*byt es+ j 1  =  0 ; 
break; 


case  ' a ' :    //down 

for(i=e;i>=s;i--)   { 

if  (i  ==  ht-1  )  continue; 
for(j=first;j<first+last;j++) 

tbuf  f  (  i +1  )  *bytes  + j ]  =  t bu f  [  i *by t es  + j ]  ; 
> 
for(j=first;j<first-t-last;j+  +  ) 

tbuffs+bytes+j]  =  0  ; 
break ; 


default:  error; 


>   //list  the  shift 

f  o  r ( i  =  s ;  i  <=  e;  i+  +  )     { 

print f("\n%3d  ",  i  )  ,* 
for(j=first;j  <  first+last;  j  +  +  ) 

1  i  st  (  "%c%c#/c%c%c%c7.c%c"  /tbuf  [i  *bytes+ j  )  )  ; 
} 


} 

in++;  wrf1ag++;  c  h  m  o  d  +  +  ;  cstat 
}  else  error;  break; 
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/ 

if  (c  hmod ) 

get  name ( w  f 

/  /no  wr  i  t  i 

if  (  cmpr ( w 

cmp  r ( w 

print f(M 

} 

i  f  (  ( wr  i  t  e  f 

pr i  nt  f ( 

} 

zhdr( f hdr) 
w  r  i  t  e  ( w  r  i  t 
wri  te (wr i t 
w  r  i  te ( wri t 
w  r  i  t  e  (  w  r  i  t 
bl  kc  =  1  ; 
fori i=o;  * 
wri  t  e ( w 
} 

write(writ 

forCinfont 

i  f  (hdr 

else  if 

i  f  ( 

f  hdr 

f  hdr 

writ 

bumo 

free 

> 

else  if 
i  = 

P  = 
f  hdr 

f  hdr 

writ 

D  =  + 

writ 

bump 

} 

else  err 

} 

seek (wri  t  e 
w  r  i  t  e  (  w  r  i  t 
del et e  =  1 
/ / remove  a 
f  o  r  (  i  =  0  ;  i  < 
if  (delete 
p  r  i  n  t  f  (  "  %  1 
ex  i  t  (  )  ; 


/write  to  wfontfile  and  auit 

cutdef ();  w  r  =  0 ; 
ont  f  i 1 e) ; 

n  g  to  file  being  edited 

f on t f i  1 e f s f ont f i  1  e  )  !! 

font f i le, "HFONT")  )  { 

writing  to  existing  file  ");  w  r  =  1  ;  error; 


p=c rea t ( w f on t f i 1 e f 0o6b ) )  < 
"file  ") ;  error; 


0) 


{ 


efp/fhdr,512);  //write  blank  hdr  table 
e  f  p  /  &  h  t  /  2  )  ; 
efDf&maxwfc?)  ; 
efpr&1ht*2); 

byte  =  6 ;  d  =  des ; 


i  -  • 


\  o  •  ;  i  +  + ) 


{ 


ri tef p»p++/ 1 ) #  bump(l); 

efpfpfl);  bumo(l);  in  =  o; 

=0;  infont<  128?  infont++)      { 

(infont*21  ==  0)  continue;  //no  char  here 

( f i nd( i nf ont ) )  {//get  it  from  Hist 
cur  rent ->ns i ze  ==  0)  continue; 
(infont*21=(hdr[infont*2]&0377)  J  ( b  1  k  c  <  <  8  )  ; 
[infont*2+l]  =  byte; 

e(wri  tefpfCurrent->def»Current->nsi  ze)  ; 
(current ->ns  i ze) ; 
(current ->de  f ) ; 

(edit)  {//aet  it  from  file 
gchardef ( readfp) ; 
t  b  u  f  ; 

linfont*2]=(hdr(infont*2)&0377)!(blkc<<8); 
(  i  nf ont  *2  + 1 ]  =  bytcl 
e  (  w r i t e f d / d f 8 ) ;  bumo(8); 

bytes*rft  +  8; 
e(wri  tefo»Dfbytes*drc) ; 
(bytes* d re) ; 

or; 

f  p ,  o ,  o ) ; 

efpffhdrf512); 

ny  emo t  y  f on  t  f  i  1 e 

256;i=+  2)  if(fhdr[i]  >  0)  aelete  =  0; 

)  { b  1  k  c  =  byte  =  0;  unlink(wfontfile);} 

\n"/blkc*S12+bytc); 


case  ' \n ' :  break ; 


//  sync 
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def aul t : 

print f("%c  ",c); 
error; 

> 

re  t  urn ( 0 )  ; 


) 


b  u  nn  p  ( i  )  //running  count  wfontfile  size 
//in  clocks  and  bytes 
int  i;     { 
i  f  (bytc  +  i  >=  51 2)     { 

if  ((bike  +  Cbytc-H  )/512)  <  255) 
bike  =+  (bytc-H  )/512; 
byte  =  (bytc+i )%512; 
} 
else  if  (bytc+i  >  32768)   { 

p  r  i  n  t  f (  "  f  i  1 e  too  bin");  e  x i  t  (  ) ; 
> 
else  byte  =+  i; 


> 

else  byte  =+  i; 


} 


int  cmor (p 1 , d2 )   //rtn  1  if  pi  1=  o2;  otherwise*  0 
char  *p 1 ,  *p2 ;     { 
for(  ;  ;  )     < 

if  (*d1  1=  *o2++)  return(O); 
if  (*pl++  ==  '\0  '  )  return( 1 ) ; 
} 
} 

cpy(nlrn2)   //cooy  ol  to  o2 
int  *  n  1  ,  *  n  2  ;      { 
int  i  ; 
for(i=0;i<256,*i+  +  )  *  n  2  +  +  =  *  n  1  +  +  ; 


opend(oljp2)   //prepend  n2  to  pi 
char  pi  CI  ,    p2  U  ;     < 

char  *d1 ,     *o2,  t  [aOl ; 

bi  =  pi;  b2  =  t; 
whi l e( ( *b2  +  +  =  *bl  +  +  ) 
b2  =  p2;  bl  =  pi; 
wh  i 1 e ( ( *bl ++  =  *b2++) 
b  2  =  t  ;  b  1  — ; 
whi 1 e ( (*b  1  ++  =  *o2  +  +  ) 
} 


=  '\0'  ) 
=  '\0'  ) 


—   I 


\o  ■ ) 


int  reject()  {   //rtn  1  if  files  are     incompat ible?ow>  0 

ifCtht  1=  ht  !!  tlht  1=  lht  !!  tmaxw  >  rraxw)  return(l); 
else  return (0); 

} 

onintrO  {   //restore  environ,  reset  int  trap 


1  ia 


s  i  gna 1  ( 2 , on i  n t  r  )  ; 
i  f  ( savet  t  y  )     { 

sgt  t  y  ( 1 J  =  savet  t  y » 

savet  t  y  =  0 ; 

st ty ( 1 /sgt ty) ; 

savet  t  y  =  0 ; 
> 
reset  (  )  ; 


} 


i  nt  gc  ha 
/*  Ge 
chara 
blank 
i  nt 
regi  s 
regi  s 
if  (i 
if  (f 
i  f 


> 

tp 
ch 
*t 
rw 
i  f 

} 

by 
*t 
1  k 
*t 
rf 
*t 
dr 
i  f 


} 

bo 

fo 

fo 

fo 

i  f 
re 

> 

//get 

if  (h 
or 

} 


rdef ( f 
t  the 

cter, 
rows  / 

fp; 

ter  if 

ter  c  h 

n )  ret 

i  nd  (  i  n 

(curr 

print 

ret  ur 

=  tbu 

arde  f 
p  +  +  = 

=  :   c* 

(  rw  < 
print 

t  es  = 
p  +  t  = 

=  :  c* 
pt+  = 

t  =!  ( 

D+  +   = 

c  =!  ( 

(arc  = 

print 
ret  ur 

t  =  ht 
r(i=0; 

f  or  C  j 
r( i  =0; 

f  o  r  (  j 
r( i=0; 

f  or  (  j 

( w  r  & 
t u  rn  (  1 

it  f  r 
dr  ( i  n  f 
i  n  t  f  (  " 


o) 

Ch 
PU 

a 
{ 

j ; 

a  r 

u  r 
fo 
en 
f  ( 
n( 

f  ; 


aracter  definition  for  the  current 

t  it  in  the  char  buffer*  expand 

nd  aisolay  necessary  diagnostics  */ 


*tp; 

n(l);   //it's  already  there/  rtn  1 
nt)  S8,  include)  {  //it's  on  the  llist 
t->stat  ==  'd')     { 
"deleted  "); 

0); 


=  current ->def  # 

rw  =  *chardef  +  +  ;  rw  =  &  0377; 

tp++  =  *chardef++)  <<  8; 

=  0)     { 

f("%o  raster  width  % d  "»infont»rw)»  return(O); 

(rw%6  ==  0)  ?  rw/8  :  rw/8  +1; 

Ik  =  *chardef++;  Ik  =&  0577; 

tp++  =  *chardef++)  <<  8; 

rft  =  *chardef ++;  rft  =&  0377; 

*tp++  =  *chardef++)  <<  8; 

drc  =  *chardpf  +  +  ;  drc  =8,  0377; 

*tp++  =  *chardef++)  <<  8; 

=  0)     { 

f ("printable  " ) ; 

n(0)  ; 


-  (arc  ♦  rft); 

i  <  rft;  i  + + ) 
=  0;  j  <  bytes;  i  +  + )  * t p  +  + 

i  <  drc;  i  + + ) 
=  0;  j  <  bytes;  j  +  + )  *tD  +  + 

i  <  b  o  t  ;  i  +  t ) 
=0;  j  <  bytes;  j++)  *tP++ 
8-  dim)  cchardim(); 

); 

om  the  file 
ont*2]  ==  0)     { 
undefined  ");  return(O); 


o; 

*c  hardef  +  ♦ ; 

0; 
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f  C(j=  (hdr  (infont *21  &  0  177400)  >>  8)  1=  0)     { 
j  =&  0377; 
seek ( f pf  j  f  3) ; 
seek(fp#hdrCinfont*2+l] ,  1  )  ; 

Ise  seek(fo,hdr[infont*2+l),0); 
ead( fp,&rwf 2) ; 
f  Crw  <=  0)     { 

printf("%o  raster  width  %d  ">infontf  rw);  return(O); 

eadCfpi &1 k,2); 

ead(fp,&rft ,2) ;- 

ead( f p,&drc#2)  ; 

f  (drc  ==  0  &&  wr)     { 

printf ("orintable  "); 
re t  urn ( 0 )  ; 


ot  =  h 

y  t  es  = 

p  =  tb 

tp  +  +  = 

tp  +  +  = 

tp  +  +  = 

tp  +  +  = 

tp  +  +  = 

or( i=0 

fori 

or(i=0 

read 

for( 


t  -( 

(  rw 

uf ; 

rw 
(  rw 
1  k 
rf  t 
drc 
;  i 

i=o; 
;  i 
Up, 
j=0; 


drc  +  r  f  t ) ; 

%8  ==  0)  ?  rw/8 


rw/8  f  l; 


&  0  37  7; 

S,  0177400)  >>  8; 
8,  0377;  *  t  p  +  +  =  (Ik 


&  0377;  *tp++  = 
&  0377;  *tpH  = 

<  r  f  t  ;  i  +  +  ) 

j  <  bytes;  j  +  +  ) 

<  d  r  c  ;  i  +  +  )     < 
i  bu  f  ,  bytes); 

j  <  bytes;  j  +  +  ) 


0177400)  >>  8; 
(rft  &  0177400)  >>  8; 
(drc  &  0177400)  >>  8; 


or(i=0;  i  <  bot;  i  + 1 ) 

for(j=0;  j  <  Dvtes;  j  +  +  ) 
f  (wr  &&  dim)  pchardim(); 
et  urn (  1  )  ; 


*  t  p  ♦  +  =  0  ; 


*tp++  =  ibuflj]; 


*tpt+  =  o; 


> 


i  nt  set  se ( x  ) 

i  n  t  x  ;     { 

peekc  =  0 ; 

s  =  get num ( ) ; 

if  (s  <  0) 

s  =  0;  e  = 
ret  u  rn ( 0  )  ; 

> 

e  =  get  num  (  )  ; 

i  f  (e  <  0)  e  =  s; 

if  (e  <  s)  error; 

i f ( ( s  >=  x 

i  f ( (s  >  x 

ret  u  rn ( 0  )  ; 
} 


//set  command  arqs  s  and  e 


{ 

x-i; 


!  e  >=  x)  && 

e  >  x )  &  &  x 


x  ==  128)  error; 
==  h t )  error; 


1  i  st ( f mt ,byt  ) 

//list  byte,  bit  by  bit,  0  =  >  ' 


1=>'0' 
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char  *fmt»  byt J     < 

print  f ( fmt , 0200&byt?  '  0  ' 

OOaO&byt?' 0' 

00  108.byt?'0' 

0002&byt?'0' 


'  ,  0100&byt?'0' 

1  ,00a0&byt?'0 • 

•  ,0004&byt?' 0' 

•  ,0001&byt?,0' 


\ 


int  f  i  nd ( i  ) 

//if  current  character  is  on  1  Hst»  rtn  1 
//current  points  to  correct  node?  ow»  rtn 
i  n  t  i  ;     i 

register  struct  noae  *otr; 
ot  r  =  head; 
while  li  >  ptr->coae  ) 

pt  r  =  pt  r->nex  t  ; 
if  ( i  ==  pt  r->code )     { 
cur  rent  =  ptrj 
re t  u  rn (  1  )  ; 


and 
0 


else  ret  urn ( 0  )  ; 


} 


get  name (file) 

//get  name  ending  in  '\0' 
char  filet);     { 
wh  i  1  e  (  (c  =  aetcO  )  =  = 


and  stick  it 
'  ) 


in  file 


i  f  (c 
P 
do 

> 
*P 


i=  »\n*) 
=  file; 
{ 

*  d  +  +  =  c ; 

wh  i 1 e  (  (c 

; 


< 


oeekc  =  0 ; 
=  cetc  (  )  ) 


=  '\n'); 


} 


putdefO     { 

//put  definition  in  char  buffer  on  llist 

if  ( f i nd ( i n f ont ) )  1  node (cur  rent t  i n f on t  )  ; 
else     { 

lnode(insert(avai  1  r infont ) >  infont ) I 
i  f  ( f reenode  >  1?8)   { 

printf  ("  overflow");  exitO; 
> 

avail  =  41 1 i st  l  +  +  f reenode)  ; 
> 
> 

lnode(ptr,K)   //do  the  work  for  PUTDEF 
struct  node  *otr;  int  k;      { 
register  int  irj;register  char  *tp; 
int  clear; 
pt  r->code  =  k  ; 
i  f  (cstat  ==  'd'  )     { 
Ptr->stat  =  cstat; 
return; 
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>   //count  blank  rows  at  too  and  bottom 

pft  =  bot  =  o; 

i  =  0;  clear  =  l; 

whi 1 e( i  <  ht  &&  c 1  ear)     < 

f o r ( j  =  8 ;  j  <  bytes  +  8;  j  ♦  + ) 

if  ( tbuf  U *by tes  + j ]  i=  0)  clear  = 
if  (clear)  pft  =  i  +  1  ; 
i  +  + ; 
} 
i  f  (i  <  ht  )     { 

i  =  h  t - 1 »  clear  =  1 ; 

whi  1 e(  i  >  0  &&  c 1  ear)     { 

for(j=8;  j  <  bytes  +  8;  j  +  + ) 
i  f  ( tbuf  fi  *bytes+  j 1  1=0) 
if  (clear)  bet  =  ht-i; 
i  --; 


clear  = 


} 
> 

drc  = 
i  f  (dp 

to  = 
*to  +  + 
*tp  +  + 
*tp  +  + 
*tp  +  + 
ford 
fo 

} 

pt  r-> 

pt  p-> 


&  0177400) 


(arc)  ?  ht  -(rft+bot)  :  0  ; 
c  =r  0)  rft  =  Ik  =  0; 

ptP->def  =  a  1  1 oc (by tes*drc *8 ) ; 

=  rw  &  0377;  *tp  +  +  =  (rw  &  0  17  7  4  0  0) 

=  Ik  &  0377;  *tD++  =  (Ik 

=  rft  &  0  3  77;  *tp++  =  (rft 

=  drc  &  0377;  *  t  p  +  +  =  (drc 
=rft;  i  <  rft+drc;i++)  { 
p(j=8;  j  <  bytes  +  8;  j  +  +  ) 

*tp++    =    tbufli*bytes+il; 

nsize  =  8+drc*bytes; 
stat  =  cstat; 


>> 
>> 


8; 
8; 


0177400)  >>  8; 
0  17  7  4  0  0)  >>  8 ; 


} 


struct  node  *insert(a/i) 
//ptn  a  node  for  PUTOEF  to  use 
struct  node  *a;  int  i;     { 
register  struct  noce  *ptr>*temp; 
t  emo  =  p t  r  =  head ; 
while(  i  >  ptr->cooe  )     { 
t  emp  =  p t  r ; 
pt  r  =  ot  r->nex  t  ; 
> 

i  f  (pt  r  ==  head)     { 
a->nex t  =  head; 
heaa  =  a ; 
} 
else     { 

a->next  =  temp->next; 
t  emp->nex  t  =  a ; 
> 

a->stat  =  a->def  =  a->nsize  =  0; 
pet  urn ( a ) ; 
} 

sbaseO  {  //set  horizontal  starting  point  for  char  def 
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first  =  8;  last  =  bytes?   //normal  char/  default 
if  (bytes  >  9)  {  //too  wider  get  a  starting  pt 

print f(M\ntoo  wide. ..starting  where  ?"); 

oeekc  =  0 ; 


while((last    =    getnumO)    <    0 


last  >=  rw ) 


peekc  =  0;  printfC  where  ?"); 
oeekc  =  0 ; 

1 ast  =  ( 1 ast  ==  0)  ?  1  :   1 ast/8 
first  =  first  +  last-l; 
last  =  ( (bytes  +  8-f i rst  )  >  9 )  ?  9 


> 

i; 

bytes+8-f  i  rst ; 


} 


getdefO  {   //aet  one  byte  of  a  definition 
int  mask/i/j; 
peekc  =  0; 

while((c  =  qetcH)  i=  '0'  &&  c  !=  '.') 
peekc  =  c  ; 
i  =  j  =  o; 
mask  =  04  00; 

while((j+t  <  8)  8,8,  CCcsgetcO)  ==  '0' 
peekc  =  0; 
if  ((mask  =  mask>>l)  &&  c  ==  '0') 


i  i 


c  =  = 


!  mask; 


> 

re t  u  rn  (  i  )  ; 


} 


pstat(i)   //print  char  status  for  edit  table 
i  n  t  i  ;     { 
if  (f ind( i  )  )     ( 

sw i t ch (cu r ren t ->s t a t  )     ( 

case  '  d  '  :  printfC  D  "  )  ;  b  r  e  a  k  ; 
case  '  i  '  :  p  r  i  n  t  f ( "  I  ");break; 
case  ' m':  print f("   M   "  )  ,* break  ; 


} 
> 

else  if  (  h  d  r  [  i  *  2  ]  ==  0)  printfC 
else  printfC   x   "); 


") ; 


} 


—  i  « 


.  • )) 


pcharaim()  {   //disolav  char  dimensions 
int  i  ; 
if((i  =  hdr  [infont*2]  K    0377)  ==  0)   { 

printf ("undefined");  return; 
> 

printfC'rw  7. d   c w  X d   %rw,i); 
if  (rw  ==  i)  printfC  Ik  %d   rk  %d",lk,lk); 
el se  i  f  ( 1 k)    < 

if  (lk+i  ==  rw)printf("lk  %d   rk  %d",1k,0); 

else  printfClk  %d   rk  %d",1k,rw  -i-lk); 
> 
else  printfClk  %d   rk  %dM  ,  1  k  ,  rw-i  )  ; 
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print  f("   ht  %d   1  h  t  %d   "rhtJht); 
ppintfC'rft  %d   drc  %d\nM  ,  r  f  t ,  drc  )  ; 


> 
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/*  Look 
a  reques 
Quit  on 
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}  e 

e  1  se 
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numbe 
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nd  ret 
;  char 
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{ 

print 
()  ;  qe 


r  and/or 
q  invalid 
urn  to  t  h 
name  [201 
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or ( nam 
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o;  qe 
cmD  r ( n 
or  ( narr 
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or  ( nam 
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Cmpr ( n 
0  !  !  i 
i  n  t  f  (  " 
cmor ( n 
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k  =  rw 
s  e  d  r  i 
print  f 
emp  r ( n 
a  rdef ( 

<=  ma 

w  =  i  ; 

f(rw  < 

hdr  [ 

hdr  [ 

1  k 


f  ("\ 
t  nam 
))  b 
))  i 
e,"i 

=  q 
ame  / 
*  des 
t  nam 
ame  t 
e,"f 

max 
e,Mh 

ht 
\n? 
ame  t 
1  ht 
\n? 
ame  p 

>    2 
\n? 
ame  r 
eadf 
) 

on  t  * 
on  t  * 
-  i  ; 
nt  f  ( 
("  c 
ame  t 
read 
x  w  ) 

f  on 

j) 

info 
info 
=  o; 


n%3o- 
e  ( nam 
reak  ; 
ns  t  r  ( 
n  font 
chard 
"  d  "  )  ) 

); 

e  (des 
"  o  "  )  ) 
")) 
w  %d 
t")) 

=  i ; 
"); 
"lht" 
=  i ; 
"); 

M  ma  x  w 
56)  { 

"); 

"  C  w  "  ) 

p)3 
{ 

2]  =& 
2)  =! 
font 
"\n? 
w  now 
"rw") 
fp)  ) 

{ 
t  =  1 

{ 
nt  *21 
nt  *2J 
font 


) 


) 
)    els 
i  f 


>  else  printf("\n? 
else  orintf("  rw  now 
e  if(cmor(name/"lk") 
(qchardef(readfo) ) 

i  f  (  r  w  =  =  j  )     { 

i  f  (  i  =  =  o )  (Ik  = 


name .  Take  both  as 

request  s  with  a  ' ? ' 
e  main  command  loop  * / 

=  0; 

>  ",infont); 

e); 

); 

"))         ( 

e  f ( read  f p ) ? 
{ 

); 

oc  ha  ra  i  m (  )  ; 

lht  7.  d  \  n  "  ,  h  t  ,  m  a  x  w  ,  1  h  t  )  ; 

( 
wrflag+t;  > 

)  )     ( 

w  r  f  1  a  q  +  +  ;  > 

")  )      ( 

maxw  =  i;  wrflag++;  } 

)      < 
{ 

0  l  7  7  a  o  0  ; 
i  &  0377; 

=  l  ; 
"); 

%d\n", (hdrtinfont3=i )); 
)  ( 

( 


=&  Ol77aoo; 
= !  i  &  0  3  7  7; 
=  i; 

") ; 

%d\n" , (rw  =  i ) ) ; 

)         { 
( 

i ;  font  =  l ;  } 
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} 


> 

i  f 


else  print f("\n?  "); 
}  else  if(i  <=  rw-j)  <  Ik  =  i;  font  =  1 J  } 
else  printf("\n?  "  )  ; 
}  else  printfC"  1 k  now  %d\n",(lk  =  i)); 


{ 


{ 


}  else  if(cmDr(name>"rk")) 
i  f (gchardef (readfo)  ) 
if(pw  ss  j)     { 

if  (i  «  0)  J   else 
else  i  f  (  i  <=  rw-j) 
i  f  (  i  +  1  k  ==  rw-j)  ; 
else  {  Ik  =  rw-  i  ;  font  = 
else  print  f("\n?  "  )  ', 
}  else  p  r  i  n  t  f  (  "  \  n  ?  "  )  ', 
>  else  printf("\n?  "); 


} 


} 


print f("\n?  "); 
{ 


1  ;  > 


(font  ) 


< 


wrfl aa++ ;cstat  = 


• ;putdef (); in  =  o; 


instr 
pr 
pr 
pr 
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e  FONT 
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s  o  f  c 
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b  1  e  mo 
pie  in 
/  '063 
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uctions  for  G E T D I M 

dimensions  are:\n"); 
ax  character  width-  'maxw'"); 
t  -  '  1  h  t  '  \  n  \  n  "  )  ; 
^CTER  dimensions  are:\n"); 
rw'   character  width-  'cw'")? 
1  k  ■ 


right  kern  '  r k  '  \ n \ n " ) ; 
structionsf  'p'  for  "); 
haracter  in  buffer. \n"); 
ner    character,  update  "); 

nsions  with  ■ f ' .  " ) ; 

e  with  ' d ' •  If  you're  adding"); 

make  changes  in  this  order  only:"); 

hen  'cw'.W); 

difications  are  rejected...."); 

outs  might  b  e \ n  "  )  ; 

infont  '  ,      '  i  '  ,     or  '0  Ik'  \n\n"  )  ', 
ted  with  a  '-> ' .  " ) } 
nished/  type  't'...  \n\n"); 


121 


PRFONT 


12  May  197  7 


PRFONT 


DESCRIPTION 


prfont  t-<number>]  <fn>  <fn> 


<f  n> 


Prfont  takes  font  names  or  full  pathnames  as  arguments. 
For  each  argument/  Prfont  displays  the  font/  setting  the 
characters  in  the  character  code  collating  sequence. 
Character  positions  are  set  and  apoear  as  they  would  if 
used  in  documents.  The  fonts  are  displayed  i n  a  9  inch 
horizontal  field  which  may  be  adjusted  by  an  optional 
leadina  argument/  a  decimal  number  between  1  and  264. 
The  default  field  width  (9    inches)  is  216  bytes. 


FILES 


<fn>  must  be  a  digitized  file. 


122 


PRFONT 


PRFONT 


PRFONT 


^define  SPACE  1  //  one  1/4  inch 

^define  TOP  230  //  top  margin 

^define  PAGEHT  14*100 

int  roww/  rows? 

int  linecount  PAGEHT; 

i  nt  pagewt  h ; 

int  prdev/  pldev»  infont » 

int  htr  maxwf  1  h  t  ,  fp; 

int  head>  tail?  nodeptr; 

i  nt  zero  fll  ,  hdr  (2561  ; 

char  *  1 p /  *p ; 

char  ff  014;  char  nl  0  12; 

char  header  [401  {"/. font s. 01 / font /" }  ; 

char  prbufC1321,  plbuf[264]; 

st  rue  t  cnode    { 


vertical  space 


int  cc ; 

Char  *opt  r ; 

char  *lotr; 

int  rw ; 

int  bytes ; 

int  Ik; 

int  rf t ; 

int  drc ; 
}  cl  ist  11283  ; 
st  rue  t  cnocie  *a  ; 
struct  cnode  *fsetU281; 


//char  code 

//->  1  s t  raster  line 

//->  next  raster  line 

//raster  line  width 

//bvtes  per  raster  line 

//left  kern 

// rows  f rom  t  op 

//da t  a  row  count 


ma  i  n ( a  rgc  > 
int  a  rg 
reg  i  s  t  e 
char  oo 
a  rgot  r 
i  f ( (pro 

orin 
i  f  (  (plo 

prin 
if  ( a  rg 

oage 
else  { 
i  n  i  t  (  )  ; 
wh  i  1 e  (  - 

o  = 

i  f  ( 
i 


a  rgv  ) 
c ;  char  * 
r  int  if 

=  l; 

e  v  =  o  o  e  n (  " 

tf ("canno 
ev  =  ooen (  " 
tf  ("canno 
v  11 J  [01  = 
w  t  h  =  a  t  o 
pagewt  h 

-a  rgc  i  = 


*a  rgv ; 
argpt  r ; 


/oev/spp", 1 ) )  <  0)     { 
t  ooen  printer"  )  »*exi  t  ()/} 
/dev/rvo", 1 ) )  <  0)      { 
t  ooen  plotter" );exit()r} 
=  '-')  (//r*>set  oagewth 
i  (  &argv  f 13  (  13  ) ;  go  =  1  ; 
=  216;  go  =  o;  > 


*D  =  = 


/ 


p 
) 

e  1  se 
f 
i 


go)  {//process  all  files 
arav  faraotr  +  gol  ; 

1  )  i     //full  oat  hname 
per ( a rgv  [a  rap t r  +  go3  t  0 ) )  <  0)  { 
"cannot  open  7.s",arav  (araptr  +  qol  )  J 
> 
opened. . . .  "  /  a  r  q  v  targptr+go3  ) ; 


f  (  (fp  =  oi 
orint f ( 
exi  t  (  )  ; 

r  i  n  t  f  (  "  %  s 


{  //prepenc  / font s . 0 1 /font 
or(i=lb;(header(i]=  *o++)  »  =  • \0';i++)  ; 
f (( fo=open (header , 0 ) )  <  0)     { 

printf(" cannot  ooen  %s"/header);exit();> 
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pr  i 
> 
i  n  f  on  t 
read ( f 
read ( f 
chec  k ( 
i  f  C  ht 
//set 
i  f  (h 
e  1  se 
) 
else  ro 
//pgbk 
i  f (nro 
P  =  or 
f  or  (  i  = 
*p  =  n 
//cent 
writet 
f  or  (  i  = 
1  i  neco 
while 
get 
put 
i  f  ( 
} 

c  1  ose  ( 
//if  n 
i  f (n  ro 
else  s 
} 
e  x  i  t  (  )  ; 


ntf("%s  opened %header); 

=  head  =  tail  =  nodeDtr  =  roww 
p  ,  h  d  r  ,  5  1  2  )  ;  read(fp,&ht,2); 
o,  &max w r 2 ) ;  reacK f pr & 1 ht 1 2) } 
);  //check  for  bad  font  file 

<=  82  )  < 
vert  spac i  nq 
t  <=  UO)  rows  =  2  ; 
rows  =  3  ; 


=  o; 


=  a 


ws  - 

i  f  f 
om  (  ro 

buf  ; 
o;  (*p 
l  ; 

er  f  w 
ordev 
o;  i<2 

unt  = 
(1  ) 
row  (  ) 
row  (  ) 
i  n  f  on 


ont  aisolay  won't  fit 
ws*ht  +  40))  DagebreakC); 
for(i=0;i<60;i++)  *o++  =  ' 
♦  +  =  a rgv (arqDt r +aol  [i])  1  = 

rite  font  name 
/Drbuf/i+62); 

5;i++)  write(p1dev#zeror2); 
+  2^; 
{ 


t  >  127)  break; 


\  0  •  ;  i  +  +  )  ; 


fp);  Drintf ("closed\n");  arqptr++; 
eed  be»  ccbk 

om(SPACE*2))  oagebreakO; 
oace(SPACE*2); 


} 


ini  t ()     { 

reg  i  s t  e  r  i  n t  i  ; 

f  o  r  (  i  =  0  ;  i  <  1  2  8  ;  i  ♦  +  ) 
> 


f set  [i ]  =  delist  til; 


pagebreak()  {  //caqe  eject 
i  n  t  i  ; 

char  err ; 

err    -    c ve r s ( p 1 dev i 020 ) ; 
\  f  (  err    ==  -1  )  { 

printf(" invalid  filedes  in  oaqebreak\n"); 
exi  t  (  )  ; 
} 

for  ( i =0; i <TCP; i ++)  w r i t e ( p 1 ae v , ze ro , 2 ) ; 
1  i  necount  =  TOP; 
} 

qetrowO  {  //get  a  row  of  chars  to  plot 
i  f (tai  1  )     { 

roww  =  f se t  [  +  +  t a i  1 ] ->by t es 7 
head  =  t a i 1 + + ; 
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} 

while  (  1  )     i 

i  f (getdef ( ) )     { 

if (roww  +  f set  It ai 1] ->by tes  <=  oagewth) 

roww  =+  f set  f t a i 1  J ->by t es ; 
else  {tail--?  ++infont;  break;} 
if  (++infont  >  127)  break; 
t  a  i  1  +  +  ; 
> 

else  if(++infont  >  127)  break; 
} 


) 


put  row (  )   < 

regi  ster 

st  rue  t  c 

f or(h=u; 

p  =  & 

ptr  = 

ford 

i  f 


// 

i  n 
nod 

h 
plb 

fs 
=  he 
(ot 

i  f 


> 

// 

el 


plot  the  row  of  characters 
t  h  ,  i  ,  1  ;  i  n  t  t  ; 
e  *ot  r ; 

<  h  t ;  h  +  +  )     { 

u  f  f  2  a  ]  ; 

et  t(t  =  head)]  ; 

ad; 1 <=tai 1 ; 1 ++)     { 

r->drc)     { 

(h  >=  ot  r->r  ft  8.8.  h 

//lp->  next  raster 

lp  =  pt  r-> 1 Dt  r ; 

//do  it  by  bytes 

for ( i  =0; i  <pt  r->bytes; i  +  +  ) 
*p  +  +  s  *  1 p  +  + ; 

//uodate  lptr  for  next  oass 

Dtr->lptr  =+  otr->bytes; 

blank  line 

se  for(i=0;i<ptr->bytes;i++)  *  p  +  +  =  0; 


<  pt  p->rf t +  pt r->drc ) 
1  i  ne 


> 
// 

el 
Pt 

} 

//plo 

write 


blank  character 

se  for(i=0;i<otr->bvtes;i++) 

r  =  f set  tt+t] ; 


p  +  ♦  =  o ; 


t  1  raster  line  of  row  of  characters 
(pldevrplbuf/ roof (roww +  24)  )  ; 

) 

//row  plotted*  plot  some  white  space 

for(h=0;h<S;h++)  write(oldev/zero/2); 

1  i  necount  =+  h  t  +5 ; 

//free    bytes  in  reverse  order 

for(i=tail;i>=head;i--) 
i  f ( f set  (i ] ->oot  r ) 

free(fset  Ml->ootr); 


} 


i  nt  getdef (  )     < 

int  blkCfbytc;  reqister  i; 
i  f (hdr  [  i  nf ont *2]  )    { 

bike  =  (hdr  [i nf ont*2]  K0\  77400) 

bike  =&  0377; 

byte  =  hdr 1 1 n font *2+ 1  ]  ; 


>>  8; 
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if (bike)  {  //ptr  is  in  blks  and  bytes 

seek ( f p, bl kc ,  3) ;  seek ( f D,by tc t  1 ) i     > 
else  seek ( f p r by t c » 0  )  ; 
get  node ( ) ; 

a->cc  =  infont;  read  (  f  d  ,  £a->  rw  t  2  )  ', 
read(fD,&a->1k,2);  read(fp»&a->rf t ;2)  ; 
read(fp>&a->drc/2) ; 

a->bytes  =  (a->rw%B  ==  0)  ?  a->rw/8  :  a->rw/8+l; 
tf(fcheckO)  {  //check  for  bad  char  dimensions 
if(a->drc)  {  //need  bytes?,  call  alloc 

if((i=a->oDtr=a->lptr=a!loc(a->drc*a->bytes))<0){ 
printf ("Nnout  of  memory..."); 
printf ("use  a  smaller  pagewiath\n"); 
e  x  i  t  (  )  ;   > 
read(fD,a->lpt  r,a->drc*a->bytes)  ; 
> 

ret  urn  (  1  )  ; 
> 
} 
ret  urn  (  0  )  ; 


} 


get  noae (  )     ( 

i  f (nodeot  r  >  127)     { 

printfCoverflow"),*  exit();> 
a  =  f set  [nodeDt r  +  +  )  ; 

a->optr  =  a->lptr  =  0; 

> 

i  n  t  r  o  o  f  (  x  ) 

int  xJ  {  //send  plotter  even  U    bytes  only 

i  f (x%2  ==  0)  return(x)  } 

//for  some  reason  264  bytes  crashes  Droqram 

if(x  ==  26  3)  return(262); 

*  p  =  0 ;  return(++x); 
> 

space ( x  ) 

int  x;  {  //plot  x  1/4  inches  space 

int  i  ; 

for(i=0;i<x*50,*i+  +  )  wri te(p1de v,zero,2); 

1  i  necoun t  =+  x  *50  ; 
} 


checkO  {  //print  then  exit  on  bad  file 


i f  tht  <  o  : i  maxw  <  o  : : 

ht  >  256  ! !  maxw  >  256 
printf ("bad  f i  le")  ; 
> 


1  nt 


<  o  : 
: :    i  h  t  > 

?  x  i  t  ( ) ; 


ht  ) 


i  n t  nroom ( x  ) 


int  x?  {  / / r  t  n  1  there  are  not  x  plot  lin 
//left  before  bottom;  otherwise* 
ifUinecount  t  x  >  PAGEHT)  return(l); 
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else  return(O); 


> 


0  to  skip  it 


i  i 
i  • 
i  i 
i  i 


(a->rf t<0 

(a->drc<0 


i  i 
i  • 
i  i 
i  • 


fcheckO  {  //if  bad  c  h  a  r  d  e  f  *  rtn 
//otherwise;  rtn  1 . 
i  f  (  (a->rw<0  !  !  a->rw>255) 
!  !  (a->l k<0  !  !  a->! k>255) 
)   { 
printf("\ninvalid  value  for 
printfC'rw  %d\trft  %d\tlk  %d\tdrc  %d\n",a->rw, 

a->rft  ,  a->  1 k / a->drc ) ? 
ret  urn ( 0)  ; 
> 
else  return(l); 


a->rf t>255) 
a->orc>255 ) 


character  '%c'\n",infont); 
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SIGNMKR 


12  May  1977 


SIGNMKR 


DESCRIPTION 


s  i  qnmk r  <  f n> 


Siqnmkr  reads  lines  from  <fn>  and  performs  limited  text 
orocessing.  It  sets  the  text  in  <fn>  in  the  selected 
fonts.  Reference  7  provides  detailed  instructions  for 
its  use?  however/  a  brief  description  of  available  com- 
mands is  listed  below: 


ESC  f  <  f ont  name> 
ESCc  <text> 


Change  fonts 
Center  <t  ex  t  > 


ESCo<c ha rac t e r  cooe>  Set  the  character  indicated 

by  the  code 


ESCpp 
ESCpg 


paragraph 
pageb  reak 


FILES 


<fn>  is  a  text  file  interspersed  with  any  of 
commands. 


the   above 
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SIGNMKR 


SIGNMKR 


SIGNMKR 


#def 
fcdef 
int 
int 
int 
int 
int 
int 
int 
i  nt 
char 
char 
char 
char 
char 
char 
st  ru 
i 

c 

i 

i 

i 

i 

i 

}  cl 

s  t  ru 

st  ru 


//  t  od  ma  rg  i  n 


base ; 
i  D/  r ; 


ine  TOP  230 

ine  PAGEHT  1  a* 1 00 

ro  w  w  7 

si  o; 

pagew t  h  216; 
1 i  necount  PAGEHT; 
p 1 dev ,     i  n  f on  t /  in, 
htf  ma  x  w  ,  lht/  f p  $ 
nodeptr,  openbits; 
zero  132]  ,  har  [256]  ; 

*  1  p  /  *Pr  *  t  r     *n  t     *cl; 

esc  033;  char  blank  040;  int  c; 

header  [401  {"/. font s . 01 /font /" > 

pbuf[901,  tbuf[90)»  olbuft264]; 

f mark  1 128]  ; 

font  name  [201  ,  ocharllO] } 
ct  cnode    { 
n  t  c  c  ; 
har  *oot  r ; 
n  t  rw ; 
nt  bytes; 
n  t  1  k  ; 
n  t  r  f  t  #" 
nt  drc ; 
i  st  [128]  ; 

c  t  cnode  *a ,     *pt r ; 
c  t  cnode  *  f char  1 1 28] 


coae 


//character 

//->  1  s t  raster  line 

//raster  line  width 

//bytes  per  raster  line 

//left  kern 

//rows  f  rom  t  op 

//data  row  count 


ma  i  n ( a  rgc  f     a  rqv ) 

int  argc;  char  **argv»     { 

i  f  (argc  <  2)  exit ( ); 

else  if  ( ( i o=open(arav  [  1]  , 0) )  <  0)     { 

orintf ("cannot  open  Xs";argv  (11  )#  e  x  i  t  (  )  ? 

} 

i  ni  t  (  )  ; 

while  (aetlnO)  put1n()# 

p  r  i  n  t  f  (  "  c  1  o  s  e  d  \  n  "  )  ;  e  x  i  t  (  )  ; 
> 

ini t ()     < 

reg i  s  t  er  int  i ; 

i f ( (pldev=ODen("/dev/rvo",  1  )  )  <  0)     { 

print f(" cannot  open  plotter");  exit(); 
> 

for ( i=0; i <128; i ++)  fchar(i)  =  0; 
n  =  fmark;  for(i=0;i<128;i++)  *  n  +  +  =  -l; 
fp  =  0;  cfont ("SAILl 0") ;  //default  font 
} 


int  a  e  t 1 n ( )  {  / / r  t  n  1  if  there's 


line  to 


129 


//be  DlottedJotherwise;  0 
char  k ; 
t  =  tbuf; 
k  =  0; 

while  (  (C*t  =  qetchO)  !=  '\n')  && 
(*t  1=  '\0'  )  )   < 
if  (  k++  ==  89  )  {  *t  =  '\n';  break;  } 

t  +  +  ; 

> 
if  (  *t  ==  '\0 '  )  return(O) ; 
else  return(l); 


> 


putln()   {  //plot  as  much  as  can  fit  in  PAGEWTH 
regi  ster  i  nt  h ,  i ; 
roww  =  0;  paqewth  =  21b? 
if  (  si  ==  0)  si  =  2a; 

t  =  tbuf ;  p  =  pbuf ; 
while  (*t  !=  '\n')     { 

if  (*t  ==  esc)  {     if  (escharO)  break;  } 
if  (filcharO)  break; 
} 

*o  =  ' \n' ; 

if  (t  ==  tbuf)  return;  //null  line  in  input  file 
//check  for  rooi1 

if  (nroom (ht + (ht /l 0 f 1 ) ) )  pagebreakC); 
for(h=0;h<ht;h++)     { 

nl  =  &plbuf[sU;  *d1  =  0;  openbits  =  8; 
Ptr  =  fchar[*(D  =  obuf)]; 
while  (*o  !=  '\n')     { 
r  =  ptr->rw; 
i  f  (Dt  r->drc )     ( 

ifCh  >=  otr->rft  &  &  h  <  ptr->rft+ptr->circ) 
i  =  h  -  ot  r->rf t ; 
Id  =  otr->ootr  ♦  i *p t r->by t es ; 
whi le(r  >  0)     { 

shi  f t  (  )  ;  r  =-  8;  } 
}  e 1 se     { 
Id  =  zero ; 
whi 1 e( r  >  0)     { 
shi  f t  ( ) ;  r  =-  e;  > 
} 

>  e 1 se     { 
1 p  =  zero; 
wh  i  1 e ( r  >  0)     { 

shiftO;     r    =-    8;> 
} 
Dtr    =    fchar[*++pl; 
} 

//plot  one  row  raster  line 
wri  te(Dl dev;plbuf f roof (roww  +  sl *8) ) ; 
> 

//plot  some  white  soace 
for(h=0;h  <  ht/10+l;hf+) 
wri  te(pldev/Zero»2) ; 
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linecount  =+  h t  ♦  (  h t /  1  0  +  1 ) ; 
si  =  o; 


} 


escharO   {  //esc-  special  characters 
i  n t  if  h i ,     space; 
char  t 1 ,     *tbf  *te; 
if  (t  ==  tbuf )     < 

if  ((c  =  *  +  +  t)  ==  'f  )  {     //font  change 
n  =  font  name ;  t  +  +  7 
while  (  (*n  =  *tH)  !=•'&&  *n  1=  '\n'  ) 

n  +  +  ; 
t  t  =  *  n  ; 

*n  =  'NO';  c font ( font  name) ; 
if  (  (tt  ==  '\n')  !!  (*t  ==  '\n'))   { 
t  =  tbuf;  return(l);   } 
>  else  if  (c  ==  's')  {  //need  space 
n  =  ochar;  t  +  ♦• ; 
base  =  (*t  ==  '0'  )  ?  8  :  10  ; 
while  ( num ( *n  =  *  t  ) )  { 
n  t  +  ;  t  +  +  ;   } 


*n  = 


\0'  ; 


hi  =  oct (ochar)  *  ht  ; 
if  ( n  room (hi))   { 

paqebreakO;  t  =  tbuf;  return(l);  > 
for  (  i  =  0  ;  i  <  h  i  ;  i  +  +  ) 

write(oloevfzerof2); 
1  i  necount  =+  h i  ; 
t  =  tbuf;  return(l); 
>  else  if  (c  =  =  'o'){  //no  ascii  equivalent 
n  =  ochar;  t++; 
base  =  (*t  ==  ' 0 • )  ?  8  :  10; 
while  (num ( ( *n  =  *t ) )  )    ( 

n  +  t ;  t  ♦  + ;  ) 
*  n  =  '  \  o  ' ;  t  — ; 

*t  =  C(i  =  oct(ochar))  >  -1  &&  i  <  128  )  ?  i 

:  blank; 
)  else  if  (c  =  =  'c')  (  //center  this  line 
while  ( *  +  + 1  ==  '  ')  ; 
tb  =  t  ; 

while  (  *  +  +  t  1=  • \ n  * )  ; 
while  (*--t  ==•'); 
t  e  =  t ;  space  =  0 ; 
for(t=tb;  t  <  =  t  e ;  t  +  + )     { 
i  f  (hdr  [*t*2]  ) 

space    =+    hdr(*t*2J     4    0377; 
el se    if     (hor  [040*2]  )  { 

space  =+  hdr(040*2]  &  0377; 
*t  =  Oao; 
>  el se     < 

orint  f ("input  error--  "); 

orintf ("\tundefined  character. . .%c\n"  ,  *t  )  ; 
f  1  ushh ( ) ; 
} 
} 
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space  =  (space%8  ==  0)  ?  soace/8  :  space/8+i; 
si  =  132  -  soace/2; 
i  f  (si  <  2a)     { 

printf  Cinout  error--  "); 

print f("\ttoo  many  characters  to  center\n")J 
f  1  u  s  h  h  (  )  ; 
> 

f or ( i  =0 ; i  <s l ; i  ++ )  p 1 b u f  t i ]  =  0; 

t  =  t  b ; 

>  else  if  (c  -  'p')   { 

if  (  (c  =  *  +  +  t)  ==  'g')   {//pgbreak 

pagebreakO;  t  =  tbuf;  return(l);   } 
else  if  (c  ==  'o')   {//paragraph 
for(i=0;i<ht;i++) 

wri  te(pldev»zerOf 3)  ; 
si  =  2  a  +  (2a  *  ht/120); 
Dagewth  =  oagewth  -  (2a  *  ht/120); 
t  =  tbuf;  return(l); 
} 
else   { 

printf  ("  invalid  character  f  o  1  o  w  i  n  g  "); 
printf C",ESCp' .."); 
ex  i  t  (  )  ; 
> 

>  else      < 

print  f  Cinout  error-  "); 

printf("\t  invalid  escape  character...  7,c"/c); 

f  1  u  s  h  h  (  )  ; 
} 
}  else  if  ((c  =  *  +  +  t)  ==  'o')  {  //no  ascii  eauiv 
n  =  ocharj  t  +  +  ; 
base  =  C*t  ==  '0 ' )  ?  8  :  10  ; 
while  (  n  u  m  (  (  *  n  =  *  t  )  )  )   { 

nt  +  ;  t  +  t ;  } 

*n  =  'NO1 ;  t--; 

*t  =  ( ( i =oc t (ochar) )  >  -1  &&  i  <  128)  ?  i 

:  blank; 
}  else  if  (c  ==  'f')  {//no  font  chg  allowed  here 

Drintf (" change  fonts  at  line  head  only  "); 

f  1  u  s  h  h  (  )  ; 
>  else     ( 

Drintf ("input  error-  "); 

printf(H\tinvalid  escape  character  (  %c  )\n"»c)» 

pr i nt f ( M\t embedded  within  t ex t  .  .  .  \n "  )  ; 

f  1  u  s  h  h  (  )  ; 
} 
re t  u  rn ( 0  )  ; 


int  filchar()    {  //move  chars  from  tbuf  to  pbuf  until 

//PAGEWTH  exceeded?  replace  nonexistent 
//chars  with  blank;  ow/  exit 
regi  ster  int  i ; 


infont  =  *t; 

i  f  (hdr  [infont *21  ) 


{ 
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i  f 


{ 


(fchar tinfont J  ==  0) 

getdef O ; 

if  (roww+a->rw  <=  pagewth*8) 

roww  =  +  a*>rwj 
else  <*p  =  '\n';  return(l);} 
>  else  if  (roww+fchar (infontl ->rw  <=  paqewth*8) 

roww  =+  f c ha r  [  i n f ont ] -> rw ; 
else  {*p  =  '\n';  return(l);} 
}  else  if  (hdr  [(infont=bl ank)*21  )     { 
*  t  =  blank; 

if  (fcharCinfontl  ==  0 )  { 

getdef ( ) ; 
if  (roww+a->rw  <=  pagewth*8) 

roww  =+  a->  r w ; 
else  {*p  =  '  \ n  •  ;  return(l);> 
}  else  if  (  roww  +  f c har  [  i n f on 1 1 -> rw  <=  oagewth*8) 
roww  =+  f c ha r  I  i n f on 1 1 -> rw ? 


\n 


ret  u  rn (  1  )  ;  } 


else  { *d  = 
>  e 1 se     { 

printfC character  '  %  3  o  *  not  defined  in  %  s " r *  1 1 
header) ; 

f  1  u  s  h  h  (  )  ; 
> 

*  p  +  +  =  *  t  +  W 
re  t  urn ( 0 ) ; 


> 


c  f  on 
c 
r 
i 

} 
f 
i 

> 
P 
d 
f 
r 
r 
i 


t  (q) 

har  *a',     {     //a  points  to  new  font  name 
egister  int  i; 
f  (fp)    { 

printf("closed\n" );  close(fp); 

or ( i  =  16;  (header  [  i J  =  *q  +  +)  1=  '\0';i++) 
f (  (  f p  =  open(header, 0) )  <  0)     { 

printfC  cannot  open  7.s",Header)  ;  e  x  i  t  (  )  ; 

rintf("%s  opened...." /header); 
ea 1 1 oc ( nodep t r ) ;  nodeptr  =  0; 
or(i=0,*i<128;i+  +  )  f  c  h  a  r  ( i  ]  =  0  ; 
ead(fo,hdr,512);  read(fo,&htf2); 


ead (fpf&maxw/2) ; 
f(checkO)     { 

printfC " % s  pad 
ex  i  t  (  )  ; 


read(  fp,&l  ht  ,2)  ', 
fonf  file"*  header) ; 


) 


} 


dea 1 1 oc ( x ) 

int  x;   {  //free  in  reverse  order 

//  of  allocation 
while  ( x ) 

i  f  (fchar  (fmark  t--x)  1 ->optr) 

free( fchar  [fmark  [x] ] ->ootr); 
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pagebreakO  {  //cage  eject 

i  n  t  l  /* 

char  err; 

err  =  c ve rs (p 1 dev i 020 ) ; 

\  f  (  err  ==  -1  )  { 

printf (" invalid  f  i  1  e  d  e  s  in  paqebreak\nM); 

e  x  i  t  (  )  ; 

} 

for  (i=0;i<TOP;i++)  wri te(oldev»zero,2) ; 

1  i  necount  =  TOP ; 
} 

getdefO     { 

int  blkcrbytc/  register  i; 

bike    =     (hdr  [infont*2] ^0177400)     >>    6; 

bike    =&    0377; 

byte  =  hdr(infont*2  +  U; 

i  f (bl kc)     < 

seek ( f p, b 1 kc / 3  )  ;  seek ( f p,by tc #  1 ) #  > 
else  seek ( f p , by t c t  0  )  ; 
get  node ( ) ; 
a->cc  =  i  n  f on t ; 
read( fp,&a->rw/2) ; 

read(fD,&a->lk,2);  read(fo,8,a->rft/2); 
read(fo/&a->drc/2); 

a->bytes  =  (a->rw%8  ==  0)  ?  a->rw/8  :  a->rw/8+l; 
i  f (a->drc  )     { 

i f ( ( i =a->opt r  =  all oc ( a->drc *a->byt es)  )  <  0)  { 
deal loc(nodeptr-l ) ; 
getdef ( ) J  return; 

> 

read(fo,a->ootr,a->drc*a->bytes); 
> 

in  =  0; 
for(i=0;i<nodeotr;i++)     { 

i  f ( f  m  a  r  k  t  i  1  ==  infont )  in  +  +  ; 
> 

i  Hin  ==  0)  f  ma  rk  Lnodepi"  r-  1  ]  =  infont; 
} 

get  noae (  )     { 

i  f (nodept  r  >  127)     { 

printfC  overflow");  e  x  i  t  (  )  ;  } 

a  =  fcharlinfont]  =  &c  1  i st  f nodeot r  +  +  ]  ; 

a->optr  =  0; 
} 

i  n t  roo  f  (  x  ) 

i  n  t  x  ;      { 

x  =  (X%8  ==  0)  ?  x/8  :  x/8  +  1  ; 

i  f  (  x  %  2  ==  0)  return(x); 

i  f (x  ==  263)  return(262) ; 

*  +  +  p  1  =  0;  retum(  +  +  x); 
} 
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int  checM)     i 

i  f  ( h  t  <  0  !!  maxw  <  0  !!  Iht  <  0  \\ 

ht  >  120  !!  maxw  >  256  !!  Iht  >  h t )  return(l); 

else  return (0); 
> 

i  nt  nroom  (  x  ) 

int  xl     i 

ifdinecount  +  x  >  PAGEHT)  return(l); 

else  ret  urn ( 0  )  ; 
} 

s  h  i  f  t  ( )     ( 
int  t  b ; 

tb  =  *lp#  tb  =&  0377;  tb  =<<  ooenbits? 
i  f  (r  >  7)     { 

*pl+  +  =!  (tb  &  0177a00)  >>  8; 
* p 1  s &  0;  * p 1  =!  tb  &  0377; 
}  e 1 se     { 

i  f  C  r  <=  openbits)     { 

*pl  =|  (tb  &  0177a00)  >>  8; 
openb  its  =  -  r ; 
}  e 1 se     { 

*p1 ++  =!  (tb  &  Oi77ao0)  >>  8; 
*o1  =&  o;  *pl  =!  tb  &  0377; 
openbits  =  8- ( r-ooenb i t s  )  ; 
> 


> 

1  p  +  + ; 


} 


int  OC t (CP ) 

Char  *co;     { 

int  i ;  i  =  0 ; 

base  =  (*cp  ==  '0' )  ?  8  :  10; 

while  (num(*co)  &&  *co  1=  '  \0') 
i  =  i*base  +  *  c  c  +  +  -  '  0 '  i 

re  t  u  rn  (  i  )  ; 
} 

i  n t  num ( cp ) 

C  ha  r  cp  ;      < 

if(base  ==  10  &&  (cp  >=  '0'  &&  cd  <=  '9'))  return(l); 
if(base  ==  8  &&  (cp  >=  '0'  &&  cd  <=  '7'))  return(l); 
if  (cp  ==  '8'  ! !  cp  ==  '9')   { 

print  f ("input  error--  "); 

orintf(M\t improper  octal  number.  ..Xd"»cp)  J 

while  (*t  1=  '\n')  putchar( *t ++)  ; 

ex i t  (  )  ; 

> 
else  re t  u  m ( 0  )  ; 
} 

getchO  { 

Char  1 1 , s ; 
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s  =  read( ip,&t t , 1 ) ; 

if  (  s==  0  )     return('\0'); 

else  return  C  tt )  ? 


> 


flushhO  <     //print  Dad  input  line  and  exit 
while  (*t  1=  * \n')  Dutchar(*t++); 
ex  i  t  (  )  ; 

} 
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